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MODULE PATRST ( 


RIF VARIANT EQL 1 E 
- ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE), E 
{DENT = 'v04-000' E 


BEGIN 


RRR RARER AAA E REAR R EEA TAAAKERAAEA AeA eee 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
* 
® 
® 
fe THIS SOFTWARE | Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
*® 
® 
® 
® 
® 
* 
* 
® 
ca 
® 


A) 
0 
0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
: .* CORPORATION. 

® 
1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR + gappeescata OF ITS 
: !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITA 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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i ABSTRACT: Use the Runtime Symbol Table (RST) data structures. 


} 
| 
lee 

FACILITY: PATCH 
! 

! 

! 

ENVIRONMENT: This module runs on VAX under VAX/VMS, user mode, non-AST Level. 

Author: Kevin Pammett, August 18, 1977. 

: Version: Vv02-014 

: MODIFIED BY: 
i 
' 
! 
! 
! 
' 
i 
! 
‘ 
' 
' 


v03-001 MTROO12 Mike Rhodes 16-Aug-1982 igi 
Modify file names to remove duplicate file name useage 
between code and require files. 


v02-014 PCG0001 Peter George 02-F EB-1981 
Add require statement for LIBS:PATDEF.REQ 


i MODIFICATIONS: | 
NO DATE PROGRAMMER PURPOSE 
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4-JAN-78 


24-JAN-78 


58-MAR- -78 


30-MAR-78 


06-APR-78 


25-APR-78 
17-MAY~-78 
18-MAY-78 
13-JUN-78 
15-JUN-78 


28-JUN-78 
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RSION 30 FOR PATCH. 

KE PATSDST_VALUE DISTINGUISH 
BETWEEN WHAT-IT CAN'T EVALUATE 
BECAUSE OF ERROR AND BECAUSE THE 

VEN CONTEXT (REGISTER SET) IS 
INAPPROPRIATE. (31) 

NO CHANGES FOR ¢- 
NO CHANGES FOR 33. 
NO CHANGES FOR 34, 
PATSDST_VALUE NOW ACCEPTS 
DESCRIPTORS WHOSE ACCESS 
FIELD = 2 FOR THE PC; THESE 
ARE FIXED-POSITION DESCS. (35) 
ADD RETURN STATUS CODE OF 3 
INDICATE ARRAY DESCRIPTORS 
FROM PATSSYM_TO_VALU AND 
PATSSYMBOL_ VALU. THIS IS SO 


Lov 
THAT PATSSYM TO VAL CAN 
ng ® RETURN TRE ADDRESS BOUND 


L. 
LOOKUP_SYM NOW HANDLES SPECIAL 
EFFORT IN § (NDING GLOBALS. (36) 


AN 
GBL_VAL_TO_SAT ROpED. i? 


U GST. (37) 
NO MORE ACCS_DESCRIPTOR'S THAT 


VERS 41. 
ADD FAO COUNTS TO SIGNALS. 
PATSSYM_TO VALU RETURNS 0 OR 2 
FOR FAICURE. CHANGE CHECK IN 
PAT$SYM_TO VAL TO TEST FOR LOW BIT. 
NO CHANGES OR VERS 42-43. 
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TABLE OF CONTENTS: 


FORWARD ROUTINE 
PATSADD_NT_T_PV, 


PATSLOOKUP_SYM, 
LOOKUP _GBL, 


GBL_VAL_TO_SAT 
PATSGET-NXT_DUP, 
PATSSYM-TO_VA‘, 

PAT$SYM_TO-VALU, 


CONCAT_PATHS : NOVALUE, 
PATSNT—HASH_FCN, 


PATH_MATCH, 


PATSVAL_TO_SYM, 
LooKuP_CvT7 
VAL_TO-SAT, 
PATSSYMBOL_VALU, 
PATSDST_VACUE, 
STD_SYM_EVAL; 


! INCLUDE FILES: 
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LIBRARY ‘SYS$LIBRARY:L1B.L32'; 
REQUIRE "SRC$:PATPCT.REQ'; 
REQUIRE ‘SRC$:SYSSER.REQ'; 
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H.SRCJPATRST.B32 (2) 


Build a pathanme vector by 
following an NT scope chain. 
Find all occurrences of a given 
pymne’ in the RST data base. 
Find all occurrences of a given 
Lobal symbol in the GST. 
ranslate VALUE to a global symbol. 
Scan along hash chains. 
LOOK UP A FULLY QUALIFIED SYMBOL. 
Return more info than sym_to_val, 
but otherwise do the same thing. 
Concatenate two pathname vectors together. 
Hashing function for calculating 
dispersai of NT entries. 
Match a pathname to the implied 
ath associated with an NT record. 
ranslate values to PATCH-time symbols. 
Search the LVT. 
Search the SAT. . 
Associate symbols with corresponding value 
Deduce the value associated with a DST 
Evaluate dynamic symbols which use 
a standard encoding for how to do 
this evaluation. 
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SWITCHES LIST (SOURCE); 
EXTERNAL Poy Ine 
PAT$fao_out; 
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v04-000 14-Sep-19 4 93; 5:83 DISKSVMSMASTER:CPATCH. SRCIPATRST.B32: 1° (3) 
; 176 1998 1 GLOBAL ROUTINE PATSADD_NT_T_Pv« NT_PTR, PV_PTR ) = 
3 i979 1899 1 
3 176 1900 1 !4+ Y 
s Vi 138) : Functional Description: 
; 6 1908 1 3 Recur down thru an NT scope chain to build a pathname vector to 
; 130 1308 } correspond to the pathname implied by the scope chain. 
$ 136 1306 1 ! Formal Parameters: 
; «(18 1907 1! 
> 6184 1908 1 ! NT_PTR -a pointer to the NT record where 
; «6185 1909 1! the symbol name is contained. This is where the 
; «186 1910 1! so-called "scope chain’ begins, if you consider such 
: 187 1911 1! a pathname to go right to left. 
; 188 a 1! PV PTR “a pointer to somewhere in the pathname vector we are 
; «189 191 1! building. Specifically, this points to where we should 
; 190 1914 1! store a pointer to the first part (MODULE) 
3 «6191 1915 1! of the pathname. 
3 136 1916 1! 
; («19 1917 1°! Implicit Inputs: 
3: «194 1918 1! 
3 199 1919 1! NT scope chains end either when the NT type is MODULE, or when the | 
; 196 1920 1! UP_SCOPE pointer is 0. (The Latter is what we do for NT records which 
; 44 196) : come in to PATCH as global of DEFine symbols). 
; 199 1993 1: Scope chains, as built by etapiy ae thru_NT records, | 
: 200 19246 1! are ‘reverse pathnames', as defined by PATHNAME_VECTOR. This 
; 201 Ses 3 7 is why this routine is recursive - we must recur down to 
: 202 1926 1! the end of the NT chain before we can begin returning 
; 203 1927 1! and filling in the pathname vector. 
> 204 1928 1! 
; 205 1929 1 ! Implicit Outputs: 
; 206 1930 1! 
; 207 1931 1! None. 
; 208 1336 1! 
: 209 1935 1 ! Return Value: 
3; 2 1934 1! 
3 (att 1935 1! The address (supposedly within the pathname vector) 
3 sig 1936 3! of where the next cs_pointer should be stored. 
3, 21 wa 2 
: 214 1938 1 ! Side Effects: 
3 25 1939 1! Zé "ine! P 
: 216 1940 1! This routine will blow up if the NT chain implies a 
: siz 1941 1! athname that is longer than is expected by the 
; 218 1306 ys ATHNAME_VECTOR declaration. 
; avy 1943 1! 
; 220 1944 1 !-- 
3 «del 1945 § BEGIN 
3 $56 1946 
: 22 1947 2 MAP 
: 224 1948 2 NT_PTR : REF NT_RECORD, 
3; 22s 1949 2 PV-PTR : REF PATHNAME_VECTOR; 
; $38 1950 
s ger 1951 !+¢ ; \ 
: $56 1936 There's not much we can do till we've reached the end of the NT scope chain. 
: $$ 1954 : IF (.NT_PTRINT_TYPE] NEQ DSCSK_DTYPE_MOD) AND (.NT_PTRCENT_UP_SCOPE] NEQ 0) 


M 7 
PATRST 16-Sep-1984 01:09:0 VAX=11 Bliss-32 V4.0-742 
v04-000 1328087138 12 3: 9 DISKSVMSMASTER C 
H 1 1955 THEN 
; ¢ 1328 PV_PTR = PATSADD_NT_T_PV( .NT_PTRENT_UP_SCOPE], .PV_PTR ); 
H 4 1958 ++ 
: 5 1959 ! The recursive call has modified our idea of where in the pathvector we 
; 236 1960 : should put the name pointer of the current pathname element. Once MODULE has 
: a3 130) been reached, though, backing up (and out) is straightforward. 
3 <oP 1968 PV_PTRCO) = NT_PTRCNT_NAME_CS); 
: sro 1964 
; 241 1965 !++ 
: yk 1966 ! The next element's CS pointer goes in the next higher pathname vector element. 
; 24 1967 : Since we do not recur on the Last time around (i.e. after the Last ROUTINE 
> 244 1968 ! mame was inserted), and since we must guarantee to end the pathname vector 
> 245 1969 2! with a 0 cs pointer, we zero each potential ‘next’ entry here to ensure this. 
; 246 1970 2! This is the = where damage will be done if/when someone gives a pathname 
; 247 1971 2! that is too ong since the recursion does not ‘count’ how many times it fills 
: 248 197 2 | in a PATHNAME_VECTOR entry. 
; 249 1975 2 !-- 
; 250 1974 § PV_PTRL1) = 0; 
; 251 1975 2 RETURN( PV_PTRE1) ); 
; doe 1976 1 END; 
-TITLE PATRST 
-IDENT \V04-000\ 
EXTRN PATSFAO OUT, PATSGL_MC_PTR 
-EXTRN PATSGL_NT_HASH, PATSGB_MOD_PTR 
-EXTRN PATSGL-CSP_PTR, PATSGET_NXT_SAT 
EXTRN PATSGET_NXT_LVT 
-EXTRN PATSGET_NXT_GST 
-EXTRN PATSGET_DST_REC 
.EXTRN PATSMAP_ADDR, PATSGL_RST_BEGN 
-PSECT _PATSCODE,NOWRT,2 
0004 00000 -ENTRY PATSADD_NT_T_PV, Save R2 
52 00000000G EF 9E 00002 MOV PATSGL_RST_BEGN, R 
50 04 AC 62 C1 00009 ADDL3 PAT$GL_RST_BEGN, NT_PTR, RO 
BC O&F 02 Ad 91 0000 CMPB 2(RO), #188 
14 13 0001 BEQL 1$ 
08 AO 85 00015 TSTW 8(RO) 
OF 13 poets BEQL 1$ 
08 AC BD OO1A PUSHL PV_PTR 
7E 08 AQ 3C 0001D MOVZWL 8(RO), -(SP) 
DB OAF 02 FB 00021 CALLS #2, PATSADD_NT_T_PV 
08 AC 50 DO 00025 MOVL RO, PV_PTR 
50 08 AC DO 00029 1$: OVL PV_PTR, RO 
51 04 AC 62 (C1 Bo0g8 ADDL3 PATSGL_RST_BEGN, NT_PTR, R1 
80 Oc Al YE 00032 MOVAB 12(R1), (RO)+ 
60 D4 00036 CLRL (RO) 
04 00038 ET 


; Routine Size: 57 bytes, Routine Base: _PATSCODE + 0000 
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v04~000 aaah 3:93:08 DISKSVMSMASTER:CLPATCH, SRCIPATRST.832:1> (4) 
; ¢ 137% } GLOBAL ROUTINE PATSLOOKUP_SYM( SYM_CS ) = 

; 256 1979 1 !44 

gor 1980 1! Functional Description: 

; 258 1981 1! 

; 259 1356 1! Look for a given symbol (NOT symbol pathname, only the symbol name 

; 260 1983 1! itself) in the RST's name table (NT) always, and in the GST, sometimes. 

; 261 1984 The latter happens when the MC_GBL_LOCKED field is FALSE. 

3 $08 1986 1! Since there may be several such pathnames, this routine actually passes 

: 264 1987 1! back a pointer to a so~called duplication chain. This chain must be 

; $0? 1356 : } whatever GET_NXT_DUP requires to ‘track down’ successive duplicates. 

; gor 1990 1 ! Formal Parameters: 

; 268 1991 1! 

: 269 b 0 1! SYM_CS -a counted String pointer to the symbol we are 

; 270 1993 1! to look for in the NT. 

; ery 1994 1! 

$ gfe 1995 1 ! Implicit Inputs: 

; 2 1996 1! 

; 274 1997 1! none. 

s a? 1998 1! 

; 276 1999 1 ! Implicit Outputs: 

: arr 2000 1! 

; 278 2001 1! none. 

; 279 2002 1! 

; 280 2003 1 ! Return Value: 

: 281 2004 1! 

; 282 2005 1! 

; 2835 2006 1! FALSE, when there is no NT or GST entry for ‘symics', 

; 284 2007 1! an NTI=pointer to (a portion of) the hash chain which 

; 285 2008 1! begins with an NT record which has ‘sym_cs' as its symbol, 

; 286 2009 1! otherwise. If a global is found to match, its ‘fake’ NT record begins 

; 287 2010 1! the hash chain. 

; 288 2011 1! 

: 289 2012 1 ! Side Effects: 

: 290 2013 1! 

: $3) sore : The GST may be searched linearly until the end or until SYM_CS is found. 

3 $95 2016 1 

> 294 2017 2 BEGIN 

; 295 2018 2 

; 296 2019 2 MAP ; 

; 297 2020 2 SYM_CS : CS_POINTER; ! A pointer to the symbol we are to look for 
; eve 2021 2 

:; 299 2022 2 LOCAL 

; 300 2023 2 GST_RECRD : REF GST_RECORD, ! Pointer to the global symbol table record 
; 301 2024 2 NT_RASH, ' Hash code for the given symbol. 
; 302 2025 2 NT_-PTR : REF NT_RECORD; ! Pointer we go thru the NT with. 
s Jos 2026 § 

3; 5304 2027 '++ : ‘ f ’ - ° 

; 305 2028 2 ! Access to the NT is via hashing. If there is no pointer in the hash vector 

; 306 $0¢e ! we get to, then no byepess out that hash to the same value as the symbol 

3 gor 030 ! we are looking up. Otherwise we follow the hash chain and pass back a pointer 

3 oS itt to the first symbol we find which matches ‘sym_cs'. 

; 310 $035 NT_HASH = PATSNT_HASH_FCN( .SYM_CS ); 
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'o4¢ 

First see if a global symbol can be found by the given name in the GST. 


iF ((GST_RECRD = LOOKUP_GBL(.SYM_CS)) NEQ 0) AND 
((NTIPTR = .PATSGL_AC_PTRE MC_GBL_NT_PTR J) NEQ 0) 


Lobal_type 
AME _CS 1PCE POINTER; 


14+ 
: Found a age symbol. Fill in the fake NT record for this global 
: so that the rest of the sym_to_val routines don't have to worry about 
! the special casing for globals. The symbol name is in a different 
! place depending on whic sree of GSD this is. Pick up a pointer 
e 


to this name, and record t GSD type. 

IF (+GST_RECROCGST_ENTRY_ TYPE] EQL GST_GLOBAL_DEFN) 
BEGIN 
NAME _CS = GST_RECRDCGST_G_NAME_CSJ; 
GLOBAL _TYPE ="DSC$K_DTYPE_GBL; 

ELSE 
NAME_CS = GST_RECRDCGST_E_NAME_CSJ; 
GLOBAL_TYPE ="DSC$K_DTYPE_ENT; 
END; 

\¢4 


: Move the relevant fields into the NT record already reserved and 
pointer to by a field in the global MC record. 


CHSMOVE( .NAME_CSCOJ+1, NAME_CSCOJ, NT_PTRINT_NAME_CSJ); 
NT_PTREINT_TYPE] = .GLOBAL_TYPE; 


NI-PTREN!“UB-StoPe ] = TROE; 
NT_PTRENT_UP_SCOPE) = 0; 
NT_PTRONT_GBC_VALUE] = .GST_RECRDOCGST_VALUE); 


e+ 

' Make this NT point forward to the hash chain in the RST for symbols 

! which hash to this same value. Whether or not there are any such 

; Sreets. we have still built a duplication chain. We carefully don't 

! change the oxtet ing hash chain so that nothing in the RST is dig 

: changed by the addition of this new fake NT for the found global symbol. 


NT_PTRINT_FORWARD] = .PATSGL_NT_HASHC .NT_HASH); 


lee 
} The duplication chain has been built. 


RETURN(.NT_PTR); 
END; 
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: Access to the NT is via ot If there is no pointer in the hash vector we 

: to, then no symbols exist that hash to the same value as the symbol we are 

! Looking + Otherwise we follow the hash chain and pass back a pointer to the 
ol we find which matches ‘sym_cs'. 


first sym 
dF CONTPTR = .PATSGL_NT_HASHC.NT_HASH]) EQL 0) 


< 
oO 
~ 


e4 
! If_there is no hash chain, then there is no ‘'sym_cs' in the 
RST data base. 
RETURN(FALSE); 
+ 
There does exist a hash chain for the given symbol. If a match does exist, 
it must be in this chain, so we simply follow along it and compare the symbol 
names found therein for the first match. 
yy 
We are only interested in this entry if the symbol names actually do match. 
LF (CHSEQL (.SYM_CSLO],SYM_CSC1],.NT_PTRENT_NAME_CS],NT_PTRLNT_NAME_ADDR])) 
BEGIN 
lee 
This is the place in the chain that we want to pass back a pointer to. 
RETURN(.NT_PTR); 
END; 


'e¢ 
! Otherwise just skip along the chain. The hash chain ends when the 
} NT_FORWARD pointer is 0. 


END 
WHILE( (NT_PTR = .NT_PTRENT_FORWARD]) NEQ 0 ); 
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'e4¢ 
! If we fail out of the above loop, we ran off the end of the hash chain 
without finding a match to the symbol we were (ooking for. 
RE TURN(FALSE) ; 
END; 
OFFC 00000 ~-ENTRY Pat St OK UE SYA. Save R2,R3,R4,R5,R6,R7,R8,- ; 1977 
58 000000006 EF 9€ 0000 MOVAB PATSGL’RST_BEGN, R11 ; 
04 AC DD 0000 PUSHL SYM_CS ; 2033 
00000000v ff gf fe ont CALLS #1, PATSNI_HASH_FCN 3 
9 0 00 0001 MOVL RO, NT_HASA : 
04 AC DD 00016 PUSHL SYM_CS ; 2038 


PATRST 
v04-000 
00000000v gf gf 
: 2D 
50 000000006 fF 68 
6 04 Ad 
3F 
01 68 
OA 
50 09 =AB 
5A B4 8F 
08 
50 0 A8 
5A B 8F 
51 60 
51 
57 56 68 
0c A7 60 51 
02 A? 5A 
03 A? 01 
08 A7 
046 AZ 05 A8 
67 preerer ae 
56 rtecenssacindt 
54 04 AC 
51 04 BC 
57 56 68 
50 oc A? 
50 00 01 AG 51 
OD A? 
04 
50 56 
56 67 
£1 
50 
; Routine Size: 162 bytes, Routine Base: 
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(RB) NAME_C 
3, GLOBAL TYPE 


PATSGL xfs" BEGN, NT_PTR, R7 
R1 Ets) {2(R7) 
GL deat YPE, Snes" 


ton 

5(GST_RECRD), 4(R7) 

gpATSGL_ NT _HASHLNT HASH], (R7) 
@PATSGL_NT_HASHCNT_HASH], NT_PTR 


SYM, cs Ra 
asym _c§ 
Parstl ksi _BEGN, NT_PTR, R7 


R1, 1(R4), #0, RO, 13(R7) 


—~ wr 
Coe 


P 
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6$ 

NT_PTR, RO 
(R7), NT_PTR 
4$ 

RO 


GN, PATSGL_MC_PTR, RO 
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y04~000 12-8 08- 1382 9 93:88 DISKSVMSMASTER:CPATCH, SRCIPATRST.B32: 1° (5) 
H ele } $ ! ROUTINE LOOKUP_GBL( SYM_CS ) = 
: 416 138 1 t+ 
; 417 139 1°! Functional Description: 
; 418 sey 1! 
3 419 141 1! Look for a given synpol (NOT sype* pathname, only the 
s 631 $106 ‘ symbol name itself) in the Global symbol table (GST). 
; 6 § sez 1 | Formal Parameters: 
3 és sie? f : 
> 424 146 1! SYM_CS “a counted ateing pointer to the symbol we are 
; es? Sieh 1! to look for in the GST. 
; 426 146 1! 
: 427 2149 1! Implicit Inputs: 

428 2150 1! 
; 429 2151 1 | 
; rt $126 : We don't consult the GST if MC_GBL_LOCKED is TRUE. 
: 432 2154 1 | GET.NXT_GST is all set up to allow us to 
: 433 2155 1! read thru the (mapped) GST sequentially. 
: 434 21356 1! 
; 435 2157 1°! Implicit Outputs: 
: 436 2158 1! none. 
; 437 2159 1! 
; 438 2160 1 ! Return Value: 
; 439 2161 1! 
3; 440 $16¢ 1! 0, when no GST entry for ‘sym_cs' can be found, 
> 441 e165 7% a pointer to the GST record for 
3: 4462 2164 1! the found symbol, otherwise. 
: 443 2165 1! 
> 444 2166 1! Side Effects: 
; 445 2167 1! 
3: 446 2168 1! The GST may be searched sequentially until either 
3; 447 2169 1! the end is encounered, or the symbol is found. 
Pa oie 
; $e S173 3 CEGIN 
: 452 2174 2 MAP 
3 $37 $158 § SYM_CS : CS_POINTER; 
> 455 2177 2 LOCAL 
; rt} $78 2 GST_RECRD : REF GST_RECORD; ! Pointer to where a fetched GST record live 
: 458 $180 le¢ 
: 459 2181 ! Don't even look in the GST if it is locked. This happens either because the 
; 460 gi8¢ ' caller specifically does not want a pistes or because the caller is using the 
3 +6) $182 ‘cache’ NT and SAT records for globals, and doesn't want them overwritten. 
: 463 $188 if (.PATSGL_MC_PTRCMC_GBL_LOCKED]) 
: 466 186 T 
3 re + H4 RETURN(O); 
> 467 189 2 !¢4 
; 468 190 ! Process the GST records sequentially, giving up if some error occurs. 
: 469 191 ! First, do an INIT so that subsequent GETs return record pointers starting 
: 670 192 ! from the beginning. 
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lee 
PATSGET_NXT_GST(1); 


PATSGET_NXT_GST returns 0 when there are no more GST records to process. 
; Otherwise if returns a pointer to each successive GST record. 


WHILE ((GST_RECRD = PATSGET_NXT_GST(O)) NEQ 0) 


egg 
We process each record depending on its GST type. 
CASE GST RECROLGSTENTRY, TYPE] FROM GST_LOWEST TO GST_HIGHEST OF 


C GST _GLOBAL_DEFN J: 
BEGIN 


'e¢ 
Check for string match of given and indicated symbols. 


iF (CHSEQL(.SYM_CSCOJ, SYM_CSC1], .GST_RECRDCGST_G_NAME_CS), 
GST_RECRDCGST_G_NAME_ABDRJ)) 


THEN 
i Found the right record, and we know there are no more 
! (because these are globals). 
EXITLOOP; 

END; 


C GST_ENTRY_DEFN ]}: ! Definition of a entry point. 
BEGIN 


oe 
: Check for string match of given and indicated symbols. 


iF (CHSEQL(.SYM_CSCOJ, SYM_CSC1], .GST_RECRDCGST_E_NAME_CS), 
GST_RECRDCGST_E_NAME_ABDRJ)) 


THEN 
i Found the right record, and we know there are no more 
(because these are globals). 
EXITLOOP; 
END; 
CINRANGE, OUTRANGE]: ' Error. 
RETURN(O); 
END; 
TES; 


lee 
Go back and process the next record. 


END; 


DISKSVMSMASTER=CPATCH. SRCIPATRST.B32 


! Definition of a global symbol. 
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0 
1 144 
§ i If the above WHILE exits, then either we encountered the normal end of GST 

: processing, or we found the symbol match. Pass back the address of the given 
¢ - symbol" s record, of 0, the failure code. 


RETURN(. GST_RECRD); 
END; 
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003C 00000 LOOKUP_GBL: 
WORD 


. Save Re. R3,R Po : 2136 
55 000000006 EF 9E 00002 MOVAB PATSGET Nits R5 : 

50 000000006 EF 000000006 EF C1 00009 ADDL PATSGL ARs RSI Teen: PATSGL_MC_PTR, RO : 2185 

49 03 AO 2 £0 00015 BBS : | 

01 DD OOO1A PUSHL #1 > 2194 
65 01 FB 0001C CALLS #1, PATSGET_NXT_GST ; 

7E D4 OOOIF 18: CLAL “(8 : 2200 
65 01 FB 00021 CALLS , PATSGET_NXT_GST : 
54 50 D0 00024 MOVL RO, GST_RECRD ; 

36 13 00027 BEQL ; | 

02 01 64 BF 00029 CASEB (GST_RECRD), #1, #2 : 2206. 
0036 001D 0008 0002D 2% . WORD 3-28." ; 
7$-2$ F 

2E 11 00033 BRB 7$ : 2241 

50 04 AC 00 00035 38: MOVL SYM_CS, RO : 2214 | 
52 60 9A 00039 MOVZBL (ROY, R ; 

$1 09 As 9A 00038C MOVZBL 9(GST_RECRD) 3 | 

51 00 01 AO 52 2D 00040 CMPCS R2, 1TRO), #0, RRI, 10(GST_RECRD) : 2215 
OA A4 00046 3 

13 11 00048 BRB 5$ ; | 

50 04 AC DO 0004A 4$: MOVL  SYM_CS, RO : 2229) 

52 60 9A 0004E MOVZBL (ROY, R : | 

51 0B A4 9A 00051 MOVZBL 11(GST RECRD), RI : | 

51 00 01 A0 52 2D 00055 CMPCS R2, 1(RO), #0, R1, 12(GST_RECRD) : 2230 

Oc AG 00058 ; | 
CO 12 00050 5$: BNEQ =‘ ; 

50 54 00 O005F 6$: MOVL  GST_RECRD, RO : 2256 
04 0006 RET ; 

50 D4 00063 7%: CLRL = RO : 2257 
04 0006 RET ; 


; Routine Size: 102 bytes, Routine Base: _PATSCODE + O0DB 
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PATRST 1o-Sep-1984 01:09:03 VAX 11 BLiss-32 V4 _0-742 Page 15 | PA 
v04= 14-Sep-1984 12:52:4 DISKSVMSMASTER: CPATCH.SRCJPATRST.B32; 1 (6) v0 
; 53 38 } ROUTINE GBL_VAL_TO_SAT( VALUE ) = : | 
3; 29? 60 1 !++ : ; | 
; 540 61 1 ! Functional Description: 3 | 
> 541 6¢ i= 3 | 
; 206 o> 1} Search the GST for the closest global symbol match : | 
> 94 64 1! to the given value. If found, build a temporary SAT 3 | 
; 544 65 1! and NT entry for this symbol so that the rest ., 
; 545 4 1 ! of the RST manipulating routine do not have to ; 
3; 546 67 1! special-case globals. : | 
; 547 2268 1! : 
; 548 § 4 1 ! Formal Parameters: ; | 
> 549 9 1 s) 
3 390 ee7) 1} VALUE <The key value to match to Global symbol. : 
f 333 $578 1 i implicit Input 
; ! Implic nputs: : 

: 328 AY 1} : 

: 554 2275 1! We don't consult the GST if MC_GBL_LOCKED. ; 
3 399 2276 1! This +}. because we normally want : 
; 556 e277 1! to let VAL_TO_SYM consult globals, but to we need : 
3 Dor 2278 1! to override this when PC_RULE calls it. : 
. 2 eery 1 : 

3 399 + 7 ¢ GET_NXT_GST is all set up to all us to 3 | 
: 260 gee) ! read thru the (mapped) GST sequentially. s | 
3; 362 as & The first MC record is reserved for manipulating : | 
3 369 2284 1! globals. As such, it has two fields which permanently : | 
; 564 2285 1! point to the ‘fake’ NT and SAT records which get : | 
; 565 2286 1! filled by this routine (and others). 3 | 
: 566 2287 1! : : | 
3 6367 2288 1! Implicit Outputs: : 

; 568 2289 1! : | 
; 569 2290 1! If a match is found, the MC_GBL NT and SAT records : | 
: 570 2291 1! are filled in so that they are usable just Like : | 
s OT) $$36 1! other NT/SAT pairs are. : | 
8 Ole 2295 1! : | 
3 Of3 2294 1 ! Return Value: : | 
> 574 2295 1! y : , | 
s Ors 2296 1! FALSE, when no candidate is found, : | 
; 576 eeor 3 a pointer to the SAT record for 3 | 
, Sre 2298 1! the found symbol, otherwise. 3 | 
; 578 $$33 ee : | 
3; fy 2300 1! Side Effects: 3 | 
:; 5380 $30) 7: ; Raye 3] 
; 581 308 1! The GST may be searched sequentially until either 3 | 
; 582 grup 3 | the end is encountered, or an exact match is found. | 
; 585 2304 1 !-- : 

; «584 2305 1 : 

; «585 $309 BEGIN : 

: 586 307 : 

: 587 2308 LOCAL : 

; $88 2309 GLOBAL _TYPE : 

; 589 2310 NAME_CS_: CS_POINTER : 
; 590 2311 GST_RECRD : REF GST_RECORD ! Pointer to where a fetched GST record Live 3 
; 318 GBL-SAT_PTR : REF SAT RECORD, ! Pointers to the SAT and NT records we buil ; 
: 236 31 GBL-NT_FIR : REF NT_RECORD : 
; 314 BEST_MATCH : REF GST_RECORO; ! Pointer to so-far ‘best* match found. 3 
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12-8081 obe 93:99:08 DISKSVMSMASTER: PATCH, SRCIPATRST.B32:1>— (6) 
lee 


! If we find a match candidate, we will use the GLOBAL temporary SAT and NT 

: records to pass on the needed info. If no space has been reserved for these 
: records, we must give up now. Moreover, if this space is currently in use 

} (for SYM_TO_VAL) then again we must give up. 


If (-PATSGL_MC_PTREMC_GBL_LOCKED]) 
RETURN(O); 
IF (CGBL_SAT_PTR = .PATSGL_MC_PTRCMC_GBL_SAT_PTRJ) EQL 0) 


RETURN(O); 
If ((GBL_LNT_PTR = .PATSGL_MC_PTRCMC_GBL_NT_PTRJ) EQL 0) 
RETURN(O); 


'o4 

! Process the GST records sequentially, giving up if some error occurs. | 

! First, do an INIT so that subsequent GETs return record pointers starting from 
! the beginning. 


PATSGET_NXT_GST(1); 
BEST_MATCH = 0; 
' 


PATSGET_NXT_GST returns 0 when there are no more GST records to process. 
WHILE ((GST_RECRD = PATSGET_NXT_GST(0)) NEQ 0) 

BEGIN 

le 

We process each record depending on its GST type. 

CASE -GST_RECRDLGST_ENTRY_ TYPE] FROM GST_LOWEST TO GST_HIGHEST OF 


C GST_GLOBAL_DEFN , ! Definition of a global symbol. 
GST ENTRY _DEFN J: ! Definition of global ENTRY points. 


lee 

! Note that the only two types we support can be handled . 
! together because the GST_VALUE field is in the same place in 
' both records. First check for an exact match because then 
we can abandon any further looking. 


IF (-VALUE EQLA .GST_RECRDCGST_VALUE]) 


BEGIN 
BEST MATCH = .GST_RECRD; 
EXITCOOP; 


lee 
Inexact matches are still better than nothing. 


if (.VALUE GTRA .GST_RECRD[GST_VALUEJ) 


DB BEE ENN BNE BEE EE BANANAMAN AARP PONIPOPOPOPINIPUNOPONIPU HPN PN nonoponofnornenys 


PA) 


< 
Oo 
~ 


a ee ee ee ee ee ee ee Ss SS 


ee ee eee ee ee ee 


'e¢ 
The symbol name is in a different place Sepene ing, om which type of GSD this 


. 18. ick up a pointer to this name, and record the GSD type. 


if (.BEST_MATCHLGST_ENTRY_TYPE] EQL GST_GLOBAL_DEFN) 
BEGIN 


é § 
19-3007 138% 91:99:03 VAX-11 Bliss-32 V4.0-742 
14-Sep-1984 12:52:4 DISKSVMSMASTER: CPATCH.SRCJPATRST.B32 
if 4 THEN 
75 4 '++ 
a ? A match. See if we already have one. 
2 5 if (.BEST_MATCH EQL 0) 
77 4 THEN 
8 4 14+ 
? Any one is better than none. 
81 4 BEST_MATCH = .GST_RECRD 
Hf 4 ELSE 
83 4 lee 
84 4 ! Take the new one only if this symbol 
$e2 ? ' is closer than the previous best one. 
$87 ; iF (BEST MATCHEGST_VALUE] LSSA .GST_RECRD[GST_VALUE]) 
389 4 BEST_MATCH = .GST_RECRD; 
4 ; END; 
308 CINRANGE, OUTRANGE): ' Error. 
393 4 BEGIN 
394 & RETURN(FALSE); 
395 END; 
396 
397 TES; 
398 
2399 ++ 
see Go back and process the next record. 
3402 END; 
240 
Sebe '++ 
405 : If the above WHILE exits, then we encountered the normal end of GST processing. 
$i08 } If we didn't find any possible match, return failure status. 
2408 3 IF (.BEST_MATCH EQL 0) 
2409 2 TH 
seit RETURN(O); 
411 
sels '++ 
241 ! Success - a candidate has been found. Fill in the required SAT and NT 
2414 2 ! records, and pass back a pointer to the former. These records have already 
15 ' been (permanently) allocated space - they are pointed to by fields in the 
1g global MC record. 
18 2 GBL_SAT_PTR(SAT_LB) = .BEST_MATCHLGST_VALUE]; 
19 2 GBL-SAT~PTRESAT~UB) = 0; 
9 GBL~SATPTRESAT-NT_PTR) = .GBL_NT_PTR; 
4 
8 
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PATRST 16-Sep-19 4 01:09:0 VAX=11 Bliss<-32 V4.0-742 Page 18 PA’ 
v04= 14- sen-1984 2: 03:0 DIS aKSVMGH TER:CPATCH.SRCIPATRST.B32:1> (6) vor 
te 429 NAME CS = BEST MATCHEGST G_NAME_CSJ; 51 
3 708 430 GLOBAL TYPE = BSCS$K_DTY PE _GBL; 3 | 
: 70 28) 3 ELSE ¢ 
3 ar; 4 i BEGIN 3 ) 
: 71 434 NAME_CS = BEST_MATCH[GST_E_NAME_CS); 3] 
3 ee r 5 GLOBAL TYPE = BSCSK_DTYPE_ENT; 3 | 
; 16 4 5 CHSMOVE( .NAME cst 141, NAME CSCOJ, GBL_NT_PTRCNT_NAME_CSJ); 3 | 
a 438 GBL_NT_PTRUNT_TYP -GLOBAC_ TYPE; 3 | 

; 718 439 GBL-NT_PTRUNT_IS GLOBAL = TROE; 3 
; 719 440 2 GBL-NT~PTRENT-GBC VALUE = .BEST_MATCHLGST_VALUE); 3 
> 72 441 2 GBLINT~PTRENT-FOR@ARD) = 0; | 4% 
: 721 Ade GBL-NT“PTRENT “UP SCOPE) = 6; | 2 | 
Se é 44 RETORNT. GBL_SAT_PTR); | 7 
i % 2444 1 END . | 
| 3 | 
$ | 
OFFC 00000 GBL_VAL_TO_SAT: 3 
. WORD e R2,R3,R4,R5,R6,R7,R8,R9I,R10,R11 : 2258) 3 | 
5B 00000000G EF 9E 00002 HOVAB  PATSGL RST BEGN, R11 : 3 | 
5A 000000006 EF 9E 00009 MOVAB PATSGET NXT_GST, R10 : | 
50 000000006 EF 6B C1 00010 ADDL3 PATS$GL_RST "BEON. PATSGL _MC_PTR, RO > 2322 3 | 

26 03 AO 02 £0 00018 BBS He. ; ; 
58 35 AO DO 0001D MOVL  53(R0), GBL_SAT_PTR > 2325 3 
42 13 00021 BEQL «6B ; 3 
52 04 Ad 3¢ 00023 MOVZWL 4(RO), GBL_NT_PTR : 2328) 7 
3¢ 613 00027 BEQL  &$ : 71 
01 Dd 00029 PUSHL #1 : 2337 31 
6A 01 FB 00028 CALLS #1, PATSGET_NXT_GST : | 7 
56 D4 O002E CLAL BEST SM ATCH : 2338) 31 
7E D4 00030 1$ CLRL : 2343, 3 
6A 01 FB 00032 CALLS "Parser _NXT_GST : | 2 
50 05 00035 TSTL ae : : 
2A 13 00037 Bear ; | 3 | 

02 01 60 8F 00039 CASEB (GST_RECRD), #1, #2 : 2349 | ; 
0070 0008 0008 0003D 2$ <WORD 4$-28,- : 3 
4$-2$.- ; 3 
11$-2$ : 3 | 
68 11 00043 3$: BRB 11$ : 2394, a] 

05 a0 04 AC bt 00045 4$: CMPL VALUE, 5(GST_RECRD) : 2361. : 
05 is 004A BNEQ 5$ 3 zs 

56 50 pO 0004c MOVL  GST_RECRD, BEST_MATCH : 2364 | : 

12 11 0004F BRB «a > 2363 : 

DD 1B 00051 5$: BLEQU 1$ > 2371 : 

56 b3 00053 TSTL | BEST_MATCH > 2376 3 

07 13 00055 BEQL 6$ ; : 

05 ad 05 Ab D1 00057 CMPL § 5(BEST_MATCH), 5(GST_RECRD) : 2387 : 

b¢ if 0005C BGEQU 1$ 3 5 

56 50 D 0035 6$: MOVL § GST_RECRD, BEST_MATCH > 2389 : 

cD 11 0006 BRB 1$ * : 2376 ; 

6 b3 0063 7$: TSTL  BEST_MATCH > 2408 | : 

46 13 00065 8$: ca i. tn F : 

02 As 05 Ad DO 00067 MOVL § 5(BEST_MATCH), 2(GBL_SAT_PTR) > 2418 : 
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Routine Base: _PATSCODE + 0141 


; Routine Size: 


— <eucianinaieas 
| M 8 

PATRST 16-Sep-1984 01:09:0 VAX-11 Bliss-32 V4.0-742 Page 20 
v04-000 1o7808-1382 93:93:28 DISKSVMSMASTER:LPATCH, SRCJPATRST.B32:1> (3 
$ f 5 ret ! GLOBAL ROUTINE PATSSYM_TO_VAL( PATH_VEC_PTR, VALUE_PTR ) = 

3; hf ; 1¢9 1 {+4 - , 

: 4 : rt : } Functional Description: 

; 730 450 1! Use the RST/GST data base to translate a given symbol pathname to its 

3 f 1 ¢23 ! corresponding value. 

3 438 788 1t This routine is quite similar PATSSYM_TO_VALU, except that it is called 

; 734 2454 1! when ONLY the value is required. As this builds in less knowledge of 

; 755 2455 1! the RS? and its data structures, this routine should be called whenever 

3 736 456 1! possible. 

Se 457 1! 

: 738 458 1 ! Formal Parameters: 

3; 2459 1! 

3 oy soot : } PATH_VEC_PTR =a pointer to the pathname vector from a PATCH command 

s 76 zu62 1! VALUE_PTR -The location to hold the returned address bound to the 

: 74 2465 1! symbol pathname. 

3: 744 2464 1! 

: 76$ 2465 1°! Implicit Inputs: 

: 746 2466 1! 

3; 747 2467 1! The value to be passed back is a longword. 

: 748 2468 1! 

3 «6749 2469 1°! Implicit Outputs: 

3; 750 2470 1! 

3; 751 2471 1! None. 

s fee sor6 1! 

Poa 2475 1 ! Return Value: 

: 754 2474 1! 
; 735 2475 1! TRUE, if symbol was located successfully. 

: 756 2476 1 | FALSE, otherwise. 

; 757 2477 1! 

3; re 2478 1°! Side Effects: 

fo. 2479 1! 2 , 

; 760 2480 1! The bound address is written into the return Location. 

: 761 2481 1! 

3 ee 2482 1 !-- 

3; 763 24835 1 

: 764 2484 2 BEGIN 

: 765 2485 2 

: 766 2486 2 MAP 

: 767 2487 2 PATH_VEC_PTR : REF PATHNAME_VECTOR, 

: 768 sees § VALUE_PTR : REF VECTORC,LONG); 

; 769 489 

: 770 2490 2 LOCAL 

3 771 2491 2 STATUS, ! INDICATOR FOR NO SYMBOL (0), ADDR OF SYMBO | 
: Wie $o38 2 DSC_PTR : REF BLOCKL,BYTE], : arrey descriptor address | 
; A 2694 VALO_DESC : VALU_DESCRIPTOR; ! Local value descriptor 

: 775 495 '++ : 

3; 776 2496 ! PATSSYM_TO_VALU does all the work of searching the symbol table. It returns 

g zi7 $436 ! either the address bound to the symbol (STATUS = 1), the address of a 

; 778 498 ! descriptor for an array (STATUS = 3), or an indication that the symbol was not 

: 444 $080 ' found (STATUS = 0 OR 2). 

: 781 2501 IF (STATUS = PATSSYM_TO_VALU(.PATH_VEC_PTR, VALU_DESC)) 


<v 
oF I 


8 
=300~ 1386 93:03:03 VAX-11 Bliss-32 V4.0-742 
-Sep-1984 12:52:4 DISKSVMSMASTER: CPATCH.SRCIJPATRST. B3204 


Return the address bound 


.ENTRY PATSSYM_TO_VAL, Save nothing 
SUBL2 #8, SP 


Ss 
PATH_VEC 
#2, iAPaTsgin. TO_VALU 


STATUS 
sarees #1 
VALU_DESC+2, @VALUE_PTR 


VALU_DESC+2, DSC_P 
gfOse PIA. “aVACOE. "BTR 


N 
PATRST 16 
v04-000 14 
; 7B 206 THEN 
; 78 50 BEGIN 
3: 784 504 l++ 
s 785 505 ' Now determine if the value returned is the address bound to 
3 736 208 the symbol or the address of an array descriptor. 
; 788 508 4 IF (.STATUS EQL 1) 
; «4789 509 THEN 
; 790 510 VALUE_PTRCOJ = .VALU_DESCCVALU_VALUEJ 
; 791 2511 ELSE 
; «79 216 4 BEGIN 
; 79 513 4 
; 794 514 4 "This must be an array descriptor. 
3 3? $212 ? i to the symbol not the address of the descriptor. 
; 797 2517 & DSC_PTR = .VALU_DESCCVALU_VALUE); 
: 798 2518 4 vALOe _PTRLO] = 7DSC_PTRCDSC$A_POINTER); 
: 799 2519 3 
; 800 2520 3 RETURNCTRUES 
; 801 2521 3 END 
; 802 $256 2 ELSE 
3; 803 2523 2 '++ 
3; 804 2524 2 ! Failure. There is really nothing further we can do. 
; 805 2525 2 es 
3; 806 2526 2 RETURN(FALSE); 
; 807 2527 1 END; 
0000 00000 
5E 08 C2 00002 UBL ‘ 
5E DD 00005 PUSHL 
04 AC DD 00007 PUSHL 
00000000V EF 02 FB OOO0A CALLS 
19 50 €9 00011 BLBC 
01 50 D1 00014 CMPL 
07 12 00017 BNEQ 
08 BC 02 AE dO 00019 MOVL 
09 11 OOO1E BRB 
50 02 AE 00 00020 1$: MOVL 
08 BC 04 Ad DO 00024 MOVL 
50 01 D0 00029 2$: MOVL 
04 0002C RET 
50 D4 0002D 3$: CLRL RO 
04 0002F RET 
; Routine Size: 48 bytes, Routine Base: _PATSCODE + O1F1 


10° 3 


809 


WANNA AWA NWWANIPINIPPOPINIPYDIND 2 2 SS PO OS OS OS 
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000900 0000 SI NIN NS NNN NN DDD AA AAA AD HUTT BB BB BEE EWA NWN 


9 
Bese -1984 01:09:03 VA 
1o=8e8-138 93; 2:45 DI 
GLOBAL ROUTINE PATSSYM_TO_VALU( PATH_VEC_PTR, VALUE_DESC_ADDR ) = 
44 


i Functional Description: 


Use the RST/GST data base to translate a given 
symbol pathname to its corresponding value. 

Build and return a so-called ‘value descriptor’ 
which corresponds to this found value. It is 

within this routine that the notion of ‘'search rules’ 
is implemented. 


Formal Parameters: 
PATH_VEC_PTR =a pointer to the pathname vector which the user 
input as the symbol name. This can be a simple 
“‘name'', a compound ‘‘rout\rout] ...\name"’, 
or a fully=-qualified ‘‘module\...\name'’. 
VALUE_DESC_ADDR -The address of a value descriptor which 
we are to ‘fill in’ with the one which 
corresponds to the value we find associated 
with the given symbol. 
Implicit Inputs: 
The value to be passed back is a ponegerd. or at least, 
the current definition of VALU_DESCRIPTOR facilitates 
passing around the value we find. 
The current state of the MODE data structure 
is used, along with the built-in relationship between the 


setting of these bits and the implied search rules, to 
pick out which is the correct match from the RST. 


Implicit Outputs: 


Return Value: 
TRUE, if the symbol is found successfully and 
3, if the symbol is found successfully and 
FALSE or 2, otherwise. 

Side Effects: 


none. 


PATH_VEC_PTR : REF PATHNAME_VECTOR, 


poo oes 


X-11 Bl V4.0-742 Page 4s 
SKSVM TER: CPATCH.SRCIJPATRST.B32;1 (8) 


Whatever is implied by the current definition of VALU_DESCRIPTOR. 


the returned value is the address bound to the symbol, 
the returned value is the address of descriptor for an array, 


9 
PATRST ib-se -1984 01:09:0 VAX-11 Bliss-32 V4.0-742 Page 23 
v04-000 12-80 8-13Re 95:93:28 DISKSVMSMASTER: PATCH. SRCJPATRST.B32:1> B 
; 866 585 VALUE_DESC_ADDR : REF VALU_DESCRIPTOR; 
; 867 586 
; 868 587 LOCAL 
; 869 588 TEMP_PATH_VEC : PATHNAME_VECTOR, ! We use a local pathname vector to concat- 
: 870 589 : enate various other partial pathname 
; 871 590 ' vectors into. 
; Hs 2591 2 CHAIN_PTR : REF NT_RECORD, ! A pointer to the hash chain which contains 
; or $238 2 ' all occurrences of the symbol which ends 
> 874 2595 2 ! the pathname pointed to by PATH_VEC_PTR. 
3 Sr 2594 2 NT_PTR : REF NT_RECORD; ! We extract each RST-pointer from the 
3; 876 2595 2 ! hash chain and use the local NT_PTR 
; 877 2596 § ! to contain the entry. 
; 878 2597 
; 879 2598 2 LOCAL 
; 880 2599 2 INDEX; ! Index of symbol in path vector. 
> «881 2600 2 
; 882 2601 § 1++ 
3 tt $006 § See that the path vector has at least one entry, and that the RST has been initialized. 
; 885 2604 2 IF .path_vec_ptr EQL 0 
; 886 2605 2 THEN 
; 887 2606 ¢ RETURN FALSE; 
; 888 2607 3 IF (.PATH_VEC_PTRLOJ EQL 0) OR (.PATSGL_MC_PTR EQL 0) 
: 889 2608 2 TH 
; 890 2609 2 RETURN(FALSE); 
: 891 2610 2 
: 892 2611 2 I++ 
; 893 2612 2! The symbol is the last entry in the given pathname. 
3; 894 2613 2 ! Pick up what index this is into the pathname vector. 
; 895 2614 2 !=- 
; 896 2615 2 INDEX = 0; 
; 897 2616 2 
; 898 2617 2 REPEAT 
; 899 2618 3 IN 
; 900 2619 & IF (.,PATH_VEC_PTRC.INDEX+1] EQL 0) 
: 901 2620 3 THEN 
> 902 2621 3 EXITLOOP; ! INDEX points to the symbol name. 
; 903 2622 4&4 IF (CINDEX = . INDEX +1) GEQ MAX_PATH_SIZE) 
> 904 2623 3 T 
; 905 2624 3 RETURN(FALSE); 
; 906 2625 2 END; 
: 907 2626 2 
: 908 2627 2 +4 
; 909 2628 § ! Discover all occurrences of the given symbol in the RST data base. If some 
; 910 2629 ! error occurs, we must give up. This is because we consider not finding any 
$ at) soso ; symbols an error. 
s 9135 song IF ((CHAIN_PTR = PATSLOOKUP_SYM( .PATH_VEC_PTRC.INDEX] )) EQL 0) 
: 914 263 § THEN 
3: «915 2634 RETURN(FALSE); ' We can find no such symbol. 
: 916 2635 
; Pir 636 !++ : 
; 918 637 ! First, before we bother with all the search rules, see if the symbol happens 
; 919 638 ! to be unique. To do this, setup to scan the duplication chain. Grab the 
: 920 639 ! first one, and accept it as long as there is no second one, and as long as 
3 953 ser? : we were given only a symbol name. 
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dD 9 ; 
_PATRST Jo=300" 138% 93:93:03 VAX=11 Bliss-32 V4.0=742 
v04-000 14-Sep-1984 12:52:4 DISKSVMSMASTER: CPATCH.SRCIPATRST.B32 (8) 


; SH 6hg IF (INDEX EQL 0) 

> 924 64 THEN 

: 98? 644 BEGIN 

; 926 645 1 ++ 

3 856 see8 ; We have only a symbol name. Check for uniqueness. 

; 3¢9 2648 PATSGET_NXT_DUP( 1, .CHAIN_PTR ); 

3; 930 2649 

3; 931 2650 4 IF _((NT_PTR = PATSGET_NXT_DUP(O)) EQL 0) 

3 93e 2651 ; T 

; oR7 $026 ; RETURN(FALSE) ; ! There is not even one. 
; 935 seei 4 IF (PATSGET_NXT_DUP(O) EQL 0) 

; 936 2655 3 THEN 

5 Yor 2656 4 BEGIN 

; 938 2657 4 144 

; 939 2658 4 ! The symbol is unique. Return a corresponding 

; ac¥ so2p : ! value descriptor and status code. 

; 942 2661 4 VALUE _DESC_ADDRCVALU_NT_PTR] = .NT_PTR; 

> 943 2662 4 RETURN( PATSSYMBOL_VALUT .NT_PTR, VALUE_DESC_ADDRCVALU_VALUE] )); 

> 944 2663 3 END; 

; 945 2664 2 END; 

> 946 2665 2 

3; 947 2666 2 i++ 

; 94 2667 2 ! We have all the duplicates, and there are more than 1 of them. Now see 

> 949 2668 2! if one of them matches the eee pathname. Note that we have to apply each 

: 950 2669 2 ! search rule, in order, to ALL of the duplicates before we can go on to the next 

3 69) 2670 2! search rule. (As opposed to applying all search rules to each consecutive 

; 928 ser) § secutive duplicate - which sounds tempting but doesn't work). 

3; «934 2673 2 ! If GLOBAL or DEFine symbols are acceptable first, we can just try to match 

; oe2 sere 2 up the two pathnames directly. 

s: Por 2676 § IF (,.PAT$GB_MOD_PTRCMODE_GLOBALS]) 

; 958 2677 ¢ THEN 

; 939 2678 BEGIN 

; 960 2679 3 1+} ; 

3; 96! 2680 3 ! Set up to scan the hash chain, and loop along 

3 4 sens 3 i it until we have considered all duplicates. 

> 964 2683 3 PATSGET_NXT_DUP( 1, .CHAIN PTR); 

3 965 2684 4 WHILE( TNT_PTR = PATSGET_NRT_DUP(O)) NEQ 0 ) 

; $083 3 DO 

: 967 86 4 BEGIN 

; 2687 5 IF (PATH_MATCH( .PATH_VEC_PTR, .NT_PTR)) 

; 969 2688 4 THEN 

: 970 689 5 BEGIN 

oe 4 690 5 +4 

; 378 son! : : Return a value descriptor and status code. 

; 974 369 5 VALUE DESC_ADDRCVALU_NT_ PTR] = .NT_PTR; 

>; 975 694 § RETURN( PATSSYMBOL_VALUT .NT_PTR, QJALUE_DESC_ADDRCVALU_VALUE) )); 
: 976 695 4 END; 

; 977 696 4 : 
; 978 697 3 END; ' Loop back and try the next duplicate. 
; WW 2698 2 END; ! It is not a GLOBAL. 
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1hese =1984 01:09:0 VAX-11 Bliss-32 V4.0-742 Pa 5 PA’ 
12286871 382 93:93:08 DISKSVMSMASTER:CPATCH, SRCJPATRST.B32:1— BS vO! 


980 9 \++ : 
981 : Next, unless asked not to, we try qualifying the given pathname with the one : 
98 ! that corresponds to the user=set current scope position (CSP) vector. : 
98 0 : Note that we can't make this check if the CSP is null because this is ; 
984 0 ! equivalent to allowing a GLOBAL to satisfy the match which we can't allow ’ : 
+H 0 at this point. 3 
987 IF (.PAT$GB_MOD_PTRCMODE_SCOPE] AND .PATSGL_CSP_PTR NEQ 0) 3 
988 THEN H 
989 BEGIN Fy 
990 +4 : 
991 1 ! Set up to scan the hash chain, and loop along : 
44 : i it until we have considered all duplicates. ; 
994 1 PATSGET_NXT_DUP( 1, .CHAIN PTR); F 
995 1 WHILE( TNT_PTR = PATSGET_NRT_DUP(O)) NEQ 0 ) ; 
996 1 DO : 
997 1 BEGIN : 
998 1 ‘++ ; 
404 ; First, build the new pathname by perpending the CSP. : 
1001 CONCAT_PATHS( TEMP _PATH_ VEC, .PATSGL_CSP_PTR, .PATH_VEC_PTR ); ; 
1002 IF (PATH_MATCH( TEMP_PATH_VEC, .NT_PTR)) : 
1003 THEN ° 
004 BEGIN 


44 
Return a value descriptor and status code. 


VALUE_DESC_ADDRCVALU_NT_PTR] = .NT_PTR; 
+ al PATSSYMBOL_VALUT .NT_PTR, VALUE_DESC_ADDRCVALU_VALUE] )); 


END; ! Go back and try the ry: matencataate 


END; ' You can't find it via 


'e¢ 
! Next, if we haven't already considered globals, now's the time. 


LF (NOT .PAT$GB_MOD_PTRLMODE_GLOBALS]) 
_ 
i Set up to scan the hash chain, and loop along it until we have 
considered all duplicates. 


PATSGET_NXT_DUP( 1, .CHAIN PTR); 
WHILE ( TNT PTR = PATSGET_NRT_DUP(O)) NEQ 0 ) 


At tt PEPE PE EHF + 47: 


BEGIN 
IF (PATH_MATCH( .PATH_VEC_PTR, .NT_PTR)) 
THEN 
BEGIN 
1+ 
Return a value descriptor and status code. 


VALUE_DESC_ADDRCVALU_NT_PTR] = .NT_PTR; 
RETURN( PATSSYMBOL_VALUT .NT_PTR, VALUE_DESC_ADDRLVALU_VALUE) )); 
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END; 
END; 


tM we were looking for. 


4 

3 

; 144 

§ i we noxie all the search rules to all the duplicates and none was the one 
1 


RETURN(FALSE) ; 
END; 
01FC 00000 
58 00000000G EF 9€ 00002 
57 Q0000000V EF 9E 00009 
56 00000000G EF 9E 00010 
55 00000000V_ EF oe 00017 
2f 2C C2 OOO1E 
5 06 AC 00 OO bse 
1B 13 00025 
63 05 C44 
17 13 00029 
000000006 EF D5 pO 
OF 13 00031 
52 04 00033 
04 A342 D5 00035 18: 
QA 13 00039 
52 06 00038 
OA 52 D1 00030 
F3 19 00040 
00BB 31 Bones ¢: 
6342 DD 00045 35$: 
FOCB sCCF 01 FB 00048 
54 50 00 00040 
FO 13 00050 
52 05 00052 
1A 12 00054 
54 DD 00056 
01 DD 00058 
65 02 FB OO05A 
7E 04 00050 
65 97 FB OO05F 
52 0 09 s4'9¢4 
DB 13 0006 
7E D4 00067 
65 Ql Ff 44 
30 D5 0006C 
dD 1 Boos 
50 66 DO 00070 4$: 
1D 06 AO €E9 0007 
54 DD 0007 
01 Dd 00079 
65 02 FB 00078 
7E D4 id 5$: 
65 01 FB 0008 


' Go back and try the next duplicate. 
! It is not a GLOBAL. 


PAT$SYM_TO a Save R2,R3,R4,R5,R6,R7,R8 
PAT$GL tsPP 


#44, 
PATH_VEC_PTR, R3 
2$ 

(R3) 
PATSGL_MC_PTR 

2s 


INDEX 
4(R3) CINDEX] 


oe oe Lad 
PZSZZA 

A=] 

mm 

<< 

7 

oa 

ary 
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(R3)CINDEX) 


CHAIN, PTR 

#2, PATSGET_NXT_DUP 

#1, PATSGET_NXT_DUP 
0 PTR 


=(SP) 
", PATSGET_NXT_DUP 
10$ 

PATSGB_MOD_PTR, RO 
CHAIN PTR 

#2, PATSGET_NXT_DUP 
#1, PATSGET_NXT_DUP 


V4.0- Pa 
:CPATCH.SRCIJPATRST.B32; 1 
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PATRST 16-Sep VAX-11 Bliss=-32 V4.0=-742 7 
/¥04-000 14-Sep 71382 }: 93:9 DISKSVMSMASTER: [PATCH SACIPATRST. B32. 79 * 
52 50 0 0083 MOVL RO, NT_PTR : 
9 1 tt BEQL 6 : 
DD 0008 PUSHL NT_PTR 3; 2687 
53 0D Bae PUSHL : 
67 $ FB 008C CALLS We, PATH_MATCH : 
EC E9 0008F BLBC RO, 5$ : 
9 11 00092 4AB 10 3; 2693 
50 66 08 B003. 6$ MOVL PAT$GB_MOD_PTR, RO : 2706 
30 05 AQ €9 00097 BLBC 5 P 3 
68 be 00098 TSTL PATSGL_CSP_PTR : 
gf 13 0009D BEQL F 
4 DD 0009F PUSHL CHAIN_PTR : 2713 
01 DD 000A) PUSHL # : 
65 02 FB 000A3 CALLS #2, PATSGET_NXT_DUP : 
7E D4 OO0A6 7$: CLRL -(SP) 3 2714 
65 01 FB O00A8 CALLS #1, PATS$GET_NXT_DUP : 
52 50 0 OO00AB MOVL RO, NT_PTR : 
1B 13 OOOAE BEQL 8$ : 
53 DD 00080 PUSHL R3 ; 2720 
68 DD 00082 PUSHL PAT$GL_CSP_PTR : 
08 a 9F 00084 PUSHAB iS PATH_VEC : 
00000000V EF 03 FB 00087 CALLS TONCAT_PATHS : 
52 DD OOOBE PUSHL PTR : 2721 
04 AE 9F 000C0 PUSHAB "ERP PATH_VEC 3 
67 02 FB 000C3 CALLS #2, pare MATCH : 
DD 50 €9 000C6 BLBC RO, 7$ 3 
22 11 000C9 BRB 0 : 2727 
50 66 DO OO00CB 8$ MOVL PAT$GB_MOD_PTR, RO : 2737 
2e 06 AO €8 OOOCE BLBS 6(RO), 118 : 
54 DD 00002 PUSHL CHAIN_PT 3 2744 
01 DD 00004 PUSHL @# : 
65 02 FB 00006 CALLS #2, PATSGET_NXT_DUP ; 
7E D4 00009 9$ CLRL ~ 3 2745 
65 01 FB 000DB CALLS #1, PATSGET_NXT_DUP ; 
52 50 DO OOODE MOVL RO 3 
1D 13 OO0E1 BEQL 11 3 
26 DO O00E3 PUSHL NT_PTR > 2748) 
53 DD OO0OES PUSHL R 3 
67 02 FB 000E7 CALLS #2, PATH_MATCH ; 
EC 50 E9 OOOEA BLBC i 5 
08 BC 52 BO OOOED 108: MOVW NT_PTR, @VALUE_DESC_ADDR 3 2754. 
7E 08 Ac 02 C1 OO0F1 ADDL3 #27 VALUE_DESC"ADDR> -(SP) : 2755. 
52 DD O000F6 PUSHL 3 
OO0000000V EF 02 FB te CALLS #2, PATSSYMBOL_VALU 3 
04 OOOFF RET 3 
50 D4 00100 118% CLRL RO 3; 2764 
04 00102 RET ; 
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GLOBAL ROUTINE PATSGET_NXT_DUP( INIT_FLAG, NEW_CHAIN ) = 


tee 


Facilitate 
it is that 


INIT_FLAG 


NEW_CHAIN 


Implicit Inputs: 


-The first 


Implicit Outputs: 
none. 


Return Value: 


Side effects: 


IN_CHAIN : 


BEGIN_CHAIN 


Functional Description: 


going wione Sees chains (or whatever 
symbol dupli 


Formal Parameters: 


0 => we are in the middle of a chain so 


cates are stored in) when we only 
want to look at symbols which match a given symbol. 


Vv 
D 


4 
I 
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pass back the next NT and pel NEW_CHAIN. 


(so that we don't have to a 
1 => this is a real init. NEW 


were or 2 parameters) 
CHAIN marks the 


beginning of the new chain we want to look at. 
“The returned value is undefined for INIT_FLAG==1 
type calls. NEW_CHAIN is not defined, otherwise. 


-a pointer to a chain of forward-linked 


NT records which all hash to the same value. 


When an init is done, (INIT_FLAG == 1) 
first element on the new chain 


th 


is assumed to be the one that we henceforth 


want to ‘key’ off. 


-The way that one ‘chains’ along hash chains. 


element in the chain when INIT==1 is the 


*key’' element for that chain. The symbol name therein 
defines what subsequent elements on the chain 
may be returned by PATSGET_NXT_DUP(O) calls. 


0 - when there are no more NTs on the chain, 
an NT_PTR to the next one, otherwise. 


OWN storage for IN_CHAIN and BEGIN_CHAIN get altered. 


REF NT_RECORD, 
: REF NT_RECORD; 


Keep a static pointer to where we are in 
the current hash chain, | 

If we are somewhere valid in the current 
chain, then we also need a static pointer 
what was the first element on this chain a 
this is the one we get the chain symbol na 


G 
18-Sep-1984 91:99:03 VAX-11 Bliss-32 V4.0-742 Page 4 
04- 14-Sep-1984 12:52:4 DISKSVMSMASTER: CPATCH.SRCJPATRST.B32;1 (9) 


1104 8 ¢ 'o+ 

1182 4 Z } See if this call marks the beginning of a new hash chain. 
1107 825 IF (. INIT FLAG) 

1108 8 § THEN 

1109 & BEGIN 

1110 828 '+¢ 

133) $ 4 ; Set up to be looking at a new chain. 

1143 831 BEGIN_CHAIN = .NEW_CHAIN; 

1114 S36 IN CHAIN = .NEW_ CHAIN; 

1115 +t 

1116 834 +4 

1117 835 ! We don't define any return value for this type of call. 
1118 836 leo 

1119 837 RETURN; 

1120 ths END; 

1121 2839 

1156 sect 14+ 

112 841 ! Skip along the chain until the next NT record of interest is found. We may 
1124 ak: ' already be at the end because of previous calls. 
1125 284 ; le= 

1126 2844 3 IF (.IN_CHAIN EQL 0) 

1127 2845 THEN 

1128 2846 RETURN(O); 

1129 2847 

1130 2848 2 I++ 

1131 2849 2 ! Otherwise scan the chain. 

1338 2850 2 !-- 

113 2851 § DO 

1134 $a26 BEGIN 

1135 2853 3 ioe 

‘3 Spee ; } Simply check that the symbol names match. 
1138 2856 4 IF (CHSEQL( .IN_CHAINCNT_NAME_CSJ, IN_CHAINCNT_NAME_ADDRI, 
1139 2857 4 ~BEGIN_CHAINENT_NAME_C€S), BEGIN_CHAINCNT_NAME_ADDRJ) 
1140 2858 4 ) 

1141 2859 3 THEN 

1142 2860 4 BEGIN 

1143 2861 4 LOCAL 

1144 oees 4 MATCH_NT : REF NT_RECORD; 
1145 863 4 

1146 2864 4 MATCH_NT = .IN_CHAIN; 

1147 865 4 IN_CHAIN = .IN~CHAINLNT_FORWARD); 
1148 866 4 RETURN(.MATCH_RAT); 

1149 867 END; 

1150 2868 END 

1151 2869 

1138 870 2 WHILE( (IN_CHAIN = .IN_CHAINCNT_FORWARD]) NEQ 0 ); 
115 871 '++ : . 

1154 1h ! There are no more in the chain to consider. 

1155 87 leo 

1156 874 RETURN(O); 

1157 875 1 END; 

INFO#2120 L1:2832 

Null expression appears in value-required context 


————_——-- + Cr 


ee ee ee ee ee oe ew ee ee 


Bn a Oe Oe Bee a we BEER SH Oe we SHOE Se OHH Se SESH SHOE Se HOE Oe Oe we Oe BH OH Se Se Sed SHOES Oe Oe Se Se Se SH SH SH Se ee SH Se Se Se Seas 
al a ea lit li aa 


—- -———— -- - ———_ - om 


PATRST 
v04- 


; Routine Size: 81 bytes, 
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04 A6 
66 


0D 


Routine Base: 


J 9 
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1o- 8081 88d 9:95:08 ; 


~PSECT 
00000 IN_CHAIN: ‘ae 
00004 BEGIN, CHAIN: 
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00000000" 
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_PATSCODE + 0324 


poo a ee 
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_PATSOWN,NOEXE,2 


_PATSCODE ,NOWRT,2 

PATSGET_NXT_DUP, Save R2,R3,R4,R5,R6 
IN_CHA ees Rb 

INTT_F 1$ 
NEW_ tuhtN: BE 
NEW_CHAIN, IN_ 
IN_CHAIN 


PAT$GL_RST_BEGN, R5 
CHAIN, R& 


N, R5, RO 
» #0, R1, 13(RO) 


GIN_CHAIN 
CHAIN 


DD 


- o 
CHA 
2 
(R4 


._ “aon. 


I 
1 
) 


CHAIN, MATCH_NT 
), IN.CHAIN 


a), 
IN_CHAIN, RO 
. IN CHAIN 


6) 
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v04 14-Sep-1984 12:52:4 DISKSVMSMASTER:CPATCH.SRCJPATRST.B32;1 (10) 
3 1159 676 1 ROUTINE CONCAT_PATHS( DESTINATION, PV_1, PV_2 ) : NOVALUE = 
3; 1160 4 1 
: 1161 a 1 !e4 
; 1186 fi 1 ! Functional Description: 
; 116 80 1! 
3; 1164 881 1! Concatenate two PATHNAME VECTORS together and place 
; 1165 Ho 1! the resultant vector in Ehe indicated location. 
; 1166 885 1! If the PV_1 vector is the same as the DESTINATION 
3: 1167 884 1! vector, then this routine is equivalent to routine 
; 113 +H ! which just *tacks' one vector onto the end of another. 
3; 1170 887 1 ! Formal Parameters: 
3 1171 886 1! 
3 EA: 889 1 ! DESTINATION -a pointer to where the concatenation 
3: 117 2890 1! of the PV_1 and PV_2 vectors should be 
: 1174 $893 1! be stored. 
3 1175 O36 1! PVv_1 “a pointer to the first source vector. If PV_1[0] 
3: 1176 2895 1! is 0, the PV_1 vector is considered enpty. 
: 1177 2894 1: PVv2 -a pointer tothe second source vector. If PV_2(0] 
; 1178 2895 1! is 0, the PV_2 vector is considered empty. 
3 1179 2896 1! a 
; 1180 2897 1! Implicit Inputs: 
; 1181 2898 1! 
; 1186 2899 1! None, other than the assumptions made about PATHNAME_VECTORS,— 
; 118 2900 1! namely their characteristics, iven via the ‘canned’ declaration, 
3: 1184 2901 1! and the fact that they must end with a 0 entry. 
3: 1185 $308 1! 
3; 1186 2903 1! Implicit Outputs: 
: 1187 2904 1! 
: 1188 2905 1! None. 
3; 1189 2906 1! 
: 1190 2907 1 ! Routine Value: 
3 1191 2908 1! 
3 1136 2909 1! NOVALUE 
3119 2910 1! 
3 1194 2911 1°! Side Effects: 
3: 1195 sais 1! 
3; 1196 291 1! The two vectors are concatenated. 
3 1197 2914 1 I= 
3; 1198 2915 1 
3 1199 2916 2 BEGIN 
: 1200 2917 2 
: 1201 2918 2 MAP , - 
: 1202 2919 DESTINATION : REF PATHNAME_VECTOR, ' ALL three input parameters are pointers to 
3; 1203 2920 ! pathname vectors. 
3; 1204 2921 PV_1 : REF PATHNAME_VECTOR, 
3 1205 $358 PV_2 : REF PATHNAME_VECTOR; 
3; 1206 292 
3; 1207 2924 LOCAL 
; 1208 2925 1 2, ! Index used for PV_2 vector. 
: 1209 926 INDEX; ' Used to index thru the destination vector. 
3; 1210 927 
3 1211 928 !e¢ , : . 
: \si¢ ; , Initialize an index into the destination and source pathname vectors. 
: 1542 931 INDEX = 0; 
3 1215 2932 2 = 0; 
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Be BB Bu 

: } 18 935 ! If we were oq tuetty given the first vector, copy each element from it into 
: 121 9 § ! the destination vector. We do not consider a O-pointer vector to be an error; 
: : , 4 5 it just means that that vector doesn't contribute anything to the result. 
:1 é 939 3 if (Pv_1C0) NEQ 0) 

4 i 24 304 tee '¢ 

; 'e¢ 

: ; 5 ats Copy each element, making sure not to overflow. 

; 13 ? S WHILE( .INDEX LSS MAX_PATH_SIZE ) 

: 1229 946 IF ((DESTINATIONC.INDEX] = .PV_1L.INDEX]) EQL 0) 

! 1380 7 3 ven | E _1L.INDEX]) EQL 0 

P4 '+¢ 

: 1S36 2349 ; The first 0 element => the end. 

: 1234 2951 EXITLOOP 

; 1235 295 : ELSE 

: 1$38 2385 2 sc INDEX = .INDEX + 1; 

: 1238 2955 ‘ i Then add on the second vector, again making sure that we were actually given 
: 1239 2956 2 ! something. Note that we don't have to check overflow of the PV_2 vector 

3 1240 2957 § ! because no matter how long it is, we will overflow the destination vector 
: \$¢3 sgee before we overflow it. 

; 1508 $960 § iF (PV_2C0) NEQ 0) 

> 1244 2961 . THEN 

: 1$e2 4 WHILE ( — LSS MAX_PATH_SIZE ) 

: 1247 2964 : IF ((DESTINATIONC. INDEX] = .PV_2C.1_2]) EQL 0) 

Be Be aa 

Py lee 

; 1250 2967 2 ! This is the only correct way to return from this routine. 
3: 1251 2968 2 leo 

; 1252 2969 2 RETURN 

: 1253 2970 ¢ ELSE 

: 1588 $972 § Tee te + 

> 1256 2973 3 INDEX = TINDEX #1; 

3: 1257 2974 2 END; 

1 OBR 

3 '¢¢ 

; 1580 97 ! If we don’t return in the above loop, then it is because we were about 

3; 1261 978 ' to overflow the destination vector. We take care of this by effectively wiping 
: 156¢ 4 ' out the vector we have built. 

: 1264 981 2 DESTINATIONLO) = 0; 

3: 1265 98 RETURN; 

: 1266 983 1 END; 


0000 00000 CONCAT_PATHS: 
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PATRST sak $48 91:93:03 VAX-11 Bliss-32 V4.0-742 Page 33 
v04= 14-Sep-1984 12:52:4 DISKSVMSMASTER:CPATCH.SRCIJPATRST.B32;1 (10) 
«WORD Save nothing : 2876 

50 7¢ 00002 CLRQ  —INDEX 3 2931 

08 AC D5 00004 TSTL = PV ; 2939 

12 13 00007 BEQL «= a$$ : | 

OA 50 D1 00009 1$: CMPL INDEX, #10 7 2964 
0D 1 900¢ BGEQ $ ; | 

04 BC40 08 BC40 D0 0000 MOVL @PV_1CINDEX], @DESTINATIONCINDEX) > 2946 
04 1 9001 BEQL 2$ ; | 
50 06 0001 INCL —_ INDEX 7 2953, 
EE 11 00019 BRB 1$ 7 2946 | 
0c Ac b 0001B 2$: TSTL PV_2 ; 2960 | 
14 1 O01 BEQL F 
OA 50 01 008 3$: CMPL = INDEX, #10 > 2962 | 
OF 18 00023 BGEQ ; 
04 BC40 OC BC41 9 00025 MOVL  @PV_2C1_2], @DESTINATIONCINDEX) 3 2964 | 
09 13 0002C BEQL 5$ : 

51 06 O002E INCL =. 3 2972 

50 D6 00030 ACL NDEX 3 2973 

EC 11 00032 BkB 3 2964 
04 BC D4 00034 4$: CLRL § @DESTINATION : 2981 | 

04 00037 5$: RET : 


; Routine Size: 56 bytes, Routine Base: _PATSCODE + 0375 | 
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68 2984 GLOBAL ROUTINE PATSNT_HASH_FCN( NAME_CS ) = 
% 386 '++ ; 
a! 44 ' Functional Description: 
ig 989 Calculate what we call the ‘hash’ code associated 
74 990 with a given + name (counted string). 
75 991 This function localizes the dispersal that we 
8 99 use to distribute syaees NT-records into so-called 
7 99 NT=chains. Currently this works by dae adding 
78 994 up the characters which make up the symbol name, 
79 995 adding in the count as well, and then truncating 
80 996 the resultant value to one byte so that we can 
81 997 then use this byte to index into the NT Hash Vector 
S 2998 that then gives us the pointer to the NT chain for 
ti $000 all symbols that ‘hash’ to this same byte index. 
# sd Formal Parameters: 
87 300 NAME_CS =the address of a counted ver ing tha 

So0e is the symbol name we are to ‘hash’. 

3006 Implicit Inputs: 

3007 


The hash index is proses to be 1 byte long. 
(See the Literal, NT_HASH_SIZE). 


Implicit Outputs: 
None. 


SBWNS AR AW Oweo 


Routine Value: 


The 1-byte hash index, guaranteed not to exceed 
the range you can reach with an unsigned byte. 


Side Effects: 


SSSeSESSSSsssssseessse 


None. 
BEGIN 
MAP 

NAME_CS : CS_POINTER; 
LOCAL 


TALLY; 


lee 
We simply add up the characters in the supposed name, including the count. 


DECR | FROM (TALLY = .NAME_CSCOJ) TO 1 
TALLY = ,TALLY + .NAME_CSC.1); 
:¢ 
! The hash value is later used as a byte index into the NT hash table. 
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PATR 18. Sep-1984 01:09:0 VAX-11 Bliss-32 V 
v04- 800 14- = ep-19 4 3393:2 DISKSVMSMASTER: CPA 
a Oat 
1 36 ‘a Nb gees - TALLY<0,8,0> ); 
1327 
0004 90008 «ENTRY PATSNT_HASH_FCN, Save R2 
51 04 BC 9A 00002 MOVZBL @NAME_CS, TALLY 
50 01 Al 9E 00006 MOVAB ° 
08 11 Bp OpA RB 2 
52 04 BC40 9A OO00D0C 1$: MOVZBL a@NAME_CSCIJ, R2 
51 52 CO 00011 DDL2 R2, TALLY 
F5 50 F5 00014 2$: SOBGTR I, 
50 51 9A 00017 MOVZBL TALLY, RO 
04 QOO1A ET 
; Routine Size: 27 bytes, Routine Base: _PATSCODE + O3AD 
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ROUTINE PATH_MATCH( PATH_VEC_PTR, NT_PTR 


'e¢ 
Functional Description: 
See if the NT record we are passed a pointer to 
has the same implicit path name as the one 


specified in the PATHNAME_VECTOR we are also 
passed a pointer to. 


Formal Parameters: 


PATH_VEC_PTR -A pointer to the pathname vector which holds 
the path name of the symbol we are to match 
with the one implied by the NT scope chain. 
NT_PTR -A pointer to the NT record which begins a so-called 


scope chain. 
Implicit Inputs: 


! 

i 

i 

i 

' 

i 

i 

i 

i 

i 

' 

i 

i 

: -Pathname vectors end with a 0 element; NT scope chains 
: end when PATSADD_NT_T_PV says they do. 

: “If the ‘top’ NT entry in an NT chain IS_GLOBAL, 
: then we assume that a pathname re tg ba only 

: of that global name is sufficient to ‘match’ the 
: implicit NT pathname. This means that PATH_MATCH 
: had better not be called with the user-given pathname 
; (ie nothing has been perpended to it) unless 

a global answer is acceptable. 

i 

! 

i 

i 

i 

' 

i 

! 

i 

i 

i 

i 
i- 


! Implicit Outputs: 
None. 
' Return Value: 


TRUE, if the paths match, 
FALSE, otherwise. 


Side Effects: 


None. 
BEGIN 
MAP 4 
PATH_VEC_PTR : REF PATHNAME_VECTOR, 
NT_PTR : REF NT_RECORD; 
LOCAL 
S_SRC : CS_POINTER, 
CS_DST_ : CS_POINTER, 
PATH_VEC : PATHNAME_VECTOR; 
‘oe 


! Since we want to compare to pathnames which have a radically different data 
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structure representation, the simplest thing to do onvert one of the 
two different things into the same kind of thing as the other is. Then 
compar ioe them is easy. In our case it is easiest to build a real 

PATHNAME VECTOR to correspond to the one implied by the NT scope chain. 


PATSADD_NT_T_PV( .NT_PTR, PATH_VEC ); 


++ 


Now just look thru the two vectors making sure that the CS pointers therein 
point to identical strings. Note that we do the comparison up to and 
a the symbol name which ends the path, since although we know these 
symbols hash to the same value we don't know that they are identical. 

Also note that even if we ae thru the followin fre mathing OK up to and 
including the MAX_PATH_SIZE‘th time, chis is still NOT a valid match since 
we must get a 0 entry fo end the gti i re properly. This is why we say 
that falling out of this loop implies failure. 


iNCR I FROM 0 TO MAX_PATH_SIZE 


a 

i Extract the CS pointers from the pathname vectors and make sure 

! that one of them is not 0 unless the other one is. If the two paths 
' are to match, they must end at the same time, otherwise the paths 

! do not match because one is longer than the other. 


CS_SRC = .PATH_VEC_PTRE.1]; 
CS"DST = .PATH-VECE.1]; 
IF (.CS_SRC EQD 0) AND (.CS_DST EQL 0) 


RETURN(TRUE); ! This is one of two places that a match can. 


IF (.CS_SRC EQL 0) OR (.CS_DST EQL 0) 
THEN 


EXITLOOP; ! The pathnames don't match because 
' one of them is too short. 


+4 
Now it is safe to actually compare the element strings. 


dF (NOT CHSEQL( .CS_SRCCOJ, CS_SRCC1J, .CS_DSTCOJ, CS_DSTC1])) 
1 ale ' Mismatch because two elements are not the 


' Corresponding pathname elements match. Go. 


! and check successive elements. 


++ 

If we fall out of the above loop, then the pathnames did not match. 

As well as a straightforward pathvector match, we must also implement a 
special match for when the user asks for a global gyaset which happens : 
to be a global from a module we have locals for. The reason for the special 
case here is because fonly? this type of global has a real pathname - 
namely “‘mod\glob_name"’. While we Support the user giving such names, we must 
also allow him to say simply ‘‘glob_name"’ as well. To check this, first see 
that the two symbol names are identical. Then make sure that this is all 
aw yeere ag | pathname, and that the corresponding NT record _1S_GLOBAL 
and is no ° 
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v04-000 1eaeen tas Pte ee NI SumGmaSteRccoAton cacoparrsT.03204° 
: 14463 158 Hoes 
: 1444 159 CS_SRC_ = .PATH_VEC_PTR(O); 
: 1445 160 3 IF"(NOT CHSEQLT .CS_SRCCOS, CS_SRCC1], .NT_PTRENT_NAME_CSJ, NT_PTRENT_NAME_ADDRJ)) 
3; 1446 161 THEN 
3 1447 186 BEGIN 
: lees 14 RETURN(FALSE) 1M hb 
: 3 ! Mismatc ecause two elements are no 
ithe fo gare 
> 145 167 3 IF (.PATH_VEC_PTRC1] EQL 0 AND .NT_PTRENT_IS_GLOBAL) 
: 1238 3168 2 THEN Pee - ate 
: 1454 $158 § '44¢ 
3 1455 170 ! Don't get fooled by the MC_IS_ GLOBAL MC record. No module names have 
: 126 ql § : values, so can never be PATH_MATCHed. 
; 1458 3158 3 IF (.NT_PTRINT_TYPE] NEQ DSCS$K_DTYPE_MOD) 
; 1459 3174 ¢ 
; 1460 3175 BEGIN 
: 1461 3176 3 
3: 1462 3177 3 RETURN(TRUE); ! This is the second of 2 places were a 
; 1463 3178 2 END; 
: 1464 3179 2 
; 1465 3180 2 RETURN(FALSE); ! The two pathnames do not match. 
3; 1466 3181 1 END; 
OOFC 00000 PATH_MATCH: 
-WORD Save R2,R3,R4,R5,R6,R7 : 
5E 2C C2 00002 SUBL2 #44, SP i 
5E DD 00005 PUSHL j 
08 AC DD 00007 PUSHL NT_PTR : 
FC29.sCF 02 FB OOOOA CALLS #2, PATSADD_NT_T_PV ; 
57 04 AC DO 0000F MOVL § PATH_VEC_PTR, R7 : 
54 D4 00013 CLRL I 3 
55 6744 DO 00015 1$: MOVL (R7)C1], CS_SRC 3 
56 6E44 DO 00019 MOVL §PATH_VECLIJ7> CS_DST : 
50 D4 00010 CLAL RO : 
55 D5 OOO1F TSTL CS_SRC 3 
06 12 00021 BNEQ 2$ 3 
50 06 00023 INCL RO 3 
56 3 00025 TSTL CS_DST 3 
48 13 00027 BEQL 4 : 
18 50 €E8 00029 2$: BLBS RO, 3$ 3 
56 Be 0002C TSTL CS_DST 3 
14 «1 4it3 BEQL 3$ 3 
51 65 9A 000 MOVZBL (CS_SRC), R1 : 
50 66 9A Baz MOVZBL (CS_DST), RO 3 
50 00 01 AS 51 2D 000 CMPC R1, 1(CS_SRC), #0, RO, 1(CS_DST) ; 
01 A6 Boat 3 
04 8 003E BNE 3$ 3 
D1 54 OA F 0040 AOBLEQ #10, I, 1$ 3 
55 67 DO 00044 38: Ov. (R75, ¢S_SRC : 
51 65 9A 00047 MOVZBL (CS_§RC)> RI ; 
56 08 AC 00000000G EF C1 0004A DDL PATSGL_RST_BEGN, NT_PTR, R6 : 
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PATRST dak 4 a8 B49 9}: 9:03 VAX-11 Bliss-32 V4.0-742 Page 40 PA 
v04-000 14-Sep-1984 12:52:45  DISKSVMSMASTER:CPATCH.SRCJPATRST.B32;1 (13) vO 
H hee 186 ’ GLOBAL ROUTINE PATSVAL_TO_SYM( VALUE, NT_PTR_ADDR, LVT_FLAG ) = : 
3 1470 184 1 S44 ; 
: 1471 185 1 ! Functional Description: ; 
; 1o%6 196 3 3 } : 
3; 147 187 1! Implement the search algorithm which PATCH uses to : 
> 1474 188 #1! correspond values with symbols. ; 
> 1475 189 1! : 
: 1476 190 1 ! Formal Parameters: H 
3; 1477 $13) : a : 
3; 1478 136 1! VALUE -The key we use in the Lookup. : 
: 1479 $13 es NT_PTR_ADDR -A pointer to where we should copy back ; 
; 1480 196 1! the NT_POINTER to the record we find : 
; 1481 3195 1! to correspond to the value. The ; 
3 Vode sive 37 contents of this location are not changed ; 
3; 148 3197 1! if no such correspondence is discovered. : 
> 1484 3198 1! LVT_FLAG “Whether or not we should even try for a 3 
; 1485 3199 1! match in the Literal value table (LVT). 

E 1486 3200 1! , (We always lookup in the SAT first). 

3 1487 3201 1 ! Warning: 
: 1488 $508 1! 
3 1489 3203 1! We return an NT pointer via NT_PTR_ ADDR. 
; 1490 3204 1! As long as this returned value is NOT a longword, 
3: 1491 3205 1! due to BLISS's inability to use the REF NT_RECORD 
; 1492 3206 1! ONLY as an NT pointer, (i.e. BLISS assumes that 
3 1493 3207 1! REFs are longwords), a caller of this routine should 
; 1494 3208 1! initialize the NT_PTR to 0 before expecting this 
: 1495 3209 1! routine to pass back the value. This routine 
; 1496 3210 1! can not pass back a longword because we won't know that 
: 1497 seul 6 the address we were passed is not a real NT_PTR 
: 1498 3212 1! field - ie, the 2-bytes that it should be... 
3 1499 S215 1! 
; 1500 3214 1 ! Implicit Inputs: 
; 1501 3215 1! 
; 1502 3216 1! None. 
; 1503 Sel7 1! . : 
: 1504 3218 1 ! Implicit Outputs: 
; 1505 3219 1! 
; 1506 3220 1! The RESULT gorencter via NT_PTR_ADDR. 
; 1507 3221 1! (see above. 
; 1508 eee 6 CS ; 
; 1509 3225 1 ! Routine Value: 
; 1510 3224 1! 
3 1511 $552 1! TRUE, if a match is found, 
; 1512 226 1 | FALSE, otherwise. 
3 1515 aT ee. 
3: 1514 3228 1 ! Side Effects: 
3; 1515 3565 1! 
: 1516 $5 o 1: . 
3; 1517 231 1! The SAT (and LVT) table(s) is/are searched. 
; 1518 $36 1 !-- 
3; 1519 2335 (1 
3; 1520 Ste BEGIN 
; 1521 H 
3 1356 § § MAP ; : 
3; 152 3 NT_PTR_ADDR : REF RST_POINTER; ! The NT pointer we return is an RST-pointer 
; 1524 3238 2 
j 
| 


; Routine Size: 48 bytes, Routine Base: _PATSCODE + 0440 
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| PATRST 16-Sep-1984 01:09:0 VAX=11 Bliss-32 V4.0-742 Pa 41 PA 
“VOe-000 132880=1 382 93:93:28 D1SKSVMSMASTER: CPATCH. SRCIPATRST.B32;1> (13) vo. 
; 1525 39 LOCAL e. 
; 1996 40 SAT_PTR : REF SAT_RECORD; .] 
: 1598 4g 3 JF (VAL_TO_SAT(.VALUE, SAT_PTR)) 3! 
; 1529 & THEN : 4 
3 13 9 a4 BEGIN 3 | 

° . ++ 4 
; 15 § 46 ! Make up for the fact that we are supposed to return an NT pointer, : 
: 1337 tf not the SAT pointer that VAL_TO_SAT gave us. | 
: 1535 49 NT_PTR_ADDRLO] = .SAT_PTRESAT_NT_PTRI; | 
ie Bp Rennes H 
: 1538 5 ‘ | 
3 1339 Be 4 RETURN( IF (-LVT_FLAG) : 
: 1541 $3e 3 LOOKUP_LVT( .VALUE, .NT_PTR_ADDR ) | 
: 1548 3256 3 ELSE 3 
: 154 257 2 FALSE); 3 | 
: 1544 3258 1 END; 3 
- | 
3 
0000 00000 .ENTRY PATSVAL_TO_SYM, Save nothing ; 3182. | 
SE 04 ce 00002 SUBL2 #4, SP : 3 
5E DD 0000 PUSHL : 3242 3 
04 AC DD 00007 PUSHL VALUE ; 3 
00000000v EF 02 FB OOO0A CALLS #2, VAL_TO_SAT : a 
09 50 €9 00011 BLBC > ; | 3 
08 BC 00 BE BO 00014 MOVW § @SAT_PTR, @NT_PTR_ADDR : 3249. 31 
50 01 D0 00019 MOVL #1, RO : 3250 3 | 
04 0001C RET : | 31 
0c OC AC £9 0001D 1$: BLBC —LVT_FLAG, 28 : 3253. 3 | 
7E 04 aC 7D 00021 MOVQ VALOE, -(SP) : 3255 | 3 4 
00000000v EF 02 FB 00025 CALLS #2, LOOKUP_LVT ; | 3 
04 0002C RET : | 3 
50 D4 0002D 2$: CLRL = RO : 3253) 3 
04 0002F RET : 3258. 3 
| ? 
3 
2 | 
i 


| 
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(14) 
ROUTINE VAL_TO_SAT( VALUE, SAT_PTR_ADDR ) = 


'ee 
' Functional Description: 


Search the Static Address Table (SAT) for the best 
match to the given value. 


Formal Parameters: 


1 3 | 
1 - 4 
1 | 
1; sj 
13 | 
1! | 
1! : | 
ze 2 4 
' 4 
1} VALUE “The key we use in the lookup. | 
'} SAT_PTR_ADDR “A pointer to where we should copy back e | 
1} the SAT_POINTER to the record we find - | 
13 to correspond to the value. The e | 
1} contents of this location are not senene a 
: if no such correspondence is discovered. a 
: e (4 
: Implicit Inputs: 3 4 
1 i The way we define a ‘match’ in the SAT is ai 
: determined solely in this routine. s | 
5 s 4 
: Implicit Outputs: z 
1: The RESULT parameter, via SAT_PTR_ADDR, also ; | 
1! indicates the corresponding NT record Pa 
; (via SAT_NT_PTR). ar 
. . 4 
: : Routine Value: 3 4 
1! TRUE, if a match is found, 2 
: FALSE, otherwise. 3 4 
H | 
: : Side Effects: a 
° . 4 
: The SAT is searched. 3 4 
1” 2 
2 BEGIN a 
2 | 
2 MAP 2 4 
2 SAT_PTR_ADDR : REF VECTOR; ! The SAT pointer we stuff back is a longwor. Par 
LABEL | 5 | 
SEARCH_SAT; ie 
LOCAL | ‘i 
CURRENT_NT =: REF NT_RECORD, ! When we look at each record of the SAT_VEC | 3 
' we apply the proper structure. 3 | 

CURRENT_SAT : REF SAT_RECORD, : 

NEXT_SAT : REF SAT_RETORD, 3 
BEST_SAT : REF SAT_RECORD; ! When we look at each record of the SAT_VEC | 3 
! we apply the roper structure. 2 i 
: same time = the ‘current’ one, and ey 
! the previous, or so-far ‘best’, one. 2 | 
ee * 
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v04-000 14-Sep-1984 12:52:4 DISKSVMSMASTER: CPATCH.SRCJPATRST. B32: 79 * 4a) 
; 1603 ! There starts out being no ‘previous’ or best match. There is also no initial 
; 1604 1 i notion of ‘current’ sat - we made it different from ‘best’ to begin with 
3 12h? 18 is solely for the diagnostic printout, below. 
; 1809 0 5 BEST_SAT = 0; 
. SB, 
: 1919 is Set up to begin the sequential pass of the SAT. 
; 161 § 5 PATSGET_NXT_SAT( SL_ACCE_INIT ); 
: 1614 ; : le+ 
> 1615 & i Linearly search the SAT —— for an exact match. SAT access type is _RECS 
; 1616 tH i because we want to quit when the access-mapping routine recognizes tha 
; 1617 : 0 i even though there may be more potential records in the SAT, there are no more 
3 1213 $3) ones currently in use. 
: 1620 335 WHILE( (NEXT_SAT = PATSGET_NXT_SAT( SL_ACCE_RECS )) NEQ 0 ) 
a ORB ms 
; 1658 3336 SEARCH_SAT: 
: 1624 ETE BEGIN 
3: 1625 338 
3 1626 $372 14+ 
3 5 34 $e¢9 3 A Update our idea of the current SAT to consider. 
; 1689 3343 3 CURRENT _SAT = .NEXT 
; 1650 34 3 CURRENT_NT = -CURRERT ASATESAT -NT_PTRI; 
3 1631 3344 3 
3 1038 3345 4 IF (.CURRENT_SATCSAT_LB) EQL .VALUE) 
3: 163 3346 3 THEN 
: 1638 3308 “on 
> 1636 3349 4 "We define a match to be ‘best’ if it is an exact one. Eve 
; Ht t4 $320 ? : _better, though, is an exact match which is NOT to a p~sect "gyubel. 
3 16 
: 1639 $326 5 iF (.BEST_SAT EQL 0) 
3 1640 3353 4 THEN 
wo HG tum 
: 1803 3356 5 i yee there were no previous candidates, we take 
3 1644 EEA 5 i the current one as best. 
: 1645 358 5 inn 
, 4. $2) 5 BEST_SAT = ,CURRENT_SAT; 
3 164 60 5 END 
3; 1648 361 4 ELSE 
ee HBG eee 
> 1651 364 5 i “See if the former ‘best’ match was exact. 
3 1036 365 5 ie 
3; 165 708 6 iF (.BEST_SATCSAT_LB) NEQ .VALUE) 
3 1654 367 5 THEN 
3; 1655 368 ++ 
: 1656 369 3 i The newer and exact match is preferable to a 
: 1037 $59 : 3 previous non-exact one no matter what. 
> 1659 3372 5 BEST_SAT = .CURRENT_SAT 
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aars ri 9:93:08 DISKSVMSMASTER:CPATCH. SRCIPATRST.B32:1> (14). vO 
ELSE 

i Since there was a previous exact match, 

! and there now is a current exact match, 

! we choose the one which is not a p-sect 

! (even if we end up with one which was a 

! match only because its UB is 0). 

IF (CURRENT NTCNT_ TYPE] NEQ DSCSK_DTYPE_PCT) 


BEST_SAT = .CURRENT_SAT; 


SSSS 
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END; 


144 
! At this point there is nothing further to do 
until we see if there are any more candidates. 


LEAVE SEARCH_SAT; 
END; 
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'e¢ 
Now try for a non-exact match. 


iF (.CURRENT_SATCSAT_LB] GTRA .VALUE) 
THEN 


lee 

: Once we get past the value we were 

! searching for, we know there will be 
! mo other candidates because the SAT 
! is sorted. 


EXITLOOP; 


02 00 00 00 CD 
COnNOW 


8 


ooo 
wn 


'+¢ 

! At this point, we know that the CURRENT lower bound! value is strictly 
: less than VALUE. Now we are! concerned about the corresponding upper 

! bound value. Normally this UB value is the address which is the 

! upper extent to which the corresponding symbol is bound. Some symbols 
' don't come with this info, though, so we handle these cases separately. 


iF (.CURRENT_SATCSAT_UB] NEQ 0) 
THEN 
ee 
i Since we have the UB information, we simply see if the 
CURRENT symbol spans the given VALUE. 
if (CURRENT. SATCSAT_UB] LSSA .VALUE) 
LEAVE SEARCH_SAT; ! This datum ends too soon. 
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! VALUE falls within this symbols extent. If we already have 
! a@ match but havn't accepted it as final, then its UB must 

! be 0, or its type is P-sect. In either case, this new one 
! is better because its UB is not 0. 


3; 1 
s 1 
. > 
3 1 
3 1 
3; 1 
s 1 
: 1 
3: 1 
3: 1 
3 1 
3: 1 
3: 1 
s 1 
: 1 
% 
3 1 
3 1 
3: 1 
3: 1 
: 1 
s 1 
3 1 
. § 
3 1 
3 1 
: 1 
3: 1 
s 9 
a 5 
3: 1 
3 1 
3; 1 
: 1 
3; 1 
: 1 
3 1 
: 1 
. 9 
3 1 
3 1 
3 1 
: 1 
3: 1 
3 1 
3 1 
; 1 
3 1 
: 1 
3 1 
: 1 
3 1 
3 1 
3 1 
: 1 
>a 
: 1 
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04 

3; 1717 430 4 BEST_SAT = .CURRENT_SAT; 

3; 1718 431 4 

; 1719 4 ¢ 4 144 

; 1720 4 4 ! If the best one now is of type P-sect, we should still 

5 i 1 re ¢ 2 look further. 

3 17 g 436 5 IF (,CURRENT_NTCNT_TYPE] NEQ DSCSK_DTYPE_PCT) 

: 1726 437 4 THEN 

; 1725 4 4 1+¢ ; 
; 1726 439 4 ! This is the first non-P-sect match so we'll take it 
; 172? 440 4 ! without any further checks. This is where we might 
; 1728 441 4 ! get into trouble Later because there ony still be a 
3 1729 442 4& ! more appropriate match if we were to take SCOPE into 
3; 1750 443 4 ' account. 

: 1731 444 4 lee 

; 736 445 4 EXITLOOP; 

; Ife 3446 4 

: 1734 3447 & '++ 

; 1735 3448 4 ! There is nothing further to consider when we know the UB value. 
3; 1736 3449 4 ! At this point we want to loop back and perhaps find a 

3: 1737 3450 4 ! better match. 

; 1738 3451 4 leo 

3; 1739 3028 4 END 

: 1740 34535 3 ELSE 

3 1741 3454 4 BEGIN 

3 1742 3455 4 '+¢ ; 

; 1743 3456 4 ! We must consider it to be a match when the upper bound is 0 
3 1744 3457 4 ! because we don't know that it isn't a match. . 

3 1745 3458 4 ! It is certainly not a good match, though, so we throw it 

3 1746 3459 4 ' away unless we don't have anything better. 

3 1747 3460 4 loo 

3; 1748 3461 5 IF (.BEST_SAT EQL 0) 

3 1749 $286 4 THEN 

3; 1750 34635 4 BEST_SAT = .CURRENT_SAT 

; 1751 3464 4 ELSE 

3; 1752 3465 5 IF (.BEST_SATCSAT_UB) EQL 0) 

3; 1753 3466 4 THEN 

3: 1754 3467 4 BEST_SAT = .CURRENT_SAT 

; 1755 3468 4 ELSE 

3; 1756 3469 4 '++ 

3: 1757 3470 4 ' BEST must be p-sect 

: 1758 3471 4 leo 

3; 1759 3472 5 IF (.CURRENT_NTCNT_TYPE] NEQ DSCSK_DTYPE_PCT) 
: 1/60 <0) 4 E 

3; 1761 474 & BEST_SAT = .CURRENT_SAT; 

3 1706 3475 ; END; 

; 176 3476 hes Ya 
3 1764 3477 2 END; ! Loop back and try again with the next SAT 
: 1765 3478 

: 1766 479 '++ : 

3: 1767 480 ! If we fall out of the above loop, then there are no more candidates from the 
: 1768 481 ! RST to consider. See if the answer we got was good enough, or if we should 
: 1769 ret; ' consult the GST. 

3; 1770 48 leo 

3 1771 484 IF (.BEST_SAT EQL 0) 

: 1778 485 THEN 

: 177 3486 '++ 
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; 1778 : ; Any global is better than nothing. : 
3 \rre 489 BEST_SAT = GBL_VAL_TO_SAT(.VALUE) ; 
3; 177 490 ELSE $ 
; 1778 491 '+4 $ 
; 1779 49 ' Don't even try for a piopes if we already got ; 
3 1780 rt an exact match from the RST. : 
3 1786 495 IF (NOT .VALUE EQLA .BEST_SATCSAT_LB]) 3 
; 178 49 THEN : 
: 1786 49 BEGIN : 
: 1785 498 LOCAL 3 
3; 1786 499 BEST_NT : REF NT_RECORD; 3 
: 1787 500 : 
; 1788 501 '++ $ 
: 1789 206 ! Check for a better match. ; 
: 1790 50 oes : 
: 1791 504 BEST_NT = .BEST_SATCSAT_NT_PTRI; 3 
3 1738 505 4 IF (T.BEST_SATCSAT_UBJ EQL~0) O : 
; 179 3506 4 (.BEST_NTCNT_TYPE] EQL DSCSK_DTYPE_PCT)) F 
3 1794 $205 3 THEN 3 
: 1795 508 4 IF ((CURRENT_SAT = GBL_VAL_TO_SAT(.VALUE)) NEQ 0) : 
: 1796 3509 : THEN F 
3; 1797 3510 1+4 : F 
: 1798 3511 3 ! The global match is better if it is closer. ; 
3; 1799 s21¢ 3 len 3 
; 1800 3513 4 IF (.CURRENT_SATCSAT_LBJ GTRA .BEST_SATCSAT_LBJ) : 
: 1801 3514 3 THEN $ 
; 1808 3515 3 BEST_SAT = .CURRENT_SAT; | 3 
; 180 3516 2 END; : 
; 1804 3517 2 3 
; 1805 3518 2 !++ | 3 
; 1806 3519 2 ! Now see how we've done. : 
; 1807 3520 ¢ lon : 
; 1808 3521 IF (.BEST_SAT NEQ 0) ; 
; 1809 3522 2 THEN | : 
: 1810 3523 3 BEGIN 3 
3; 1811 3524 3 '++ \ 3 
: \ei¢ $252 : Pass back the NI-pointer to the match and return a success status. ; 
3; 1814 3527 3 SAT_PTR_ADDR(O] = .BEST_SAT; | : 
3; 1815 3528 3 RETORN(TRUE); 3 
: 1816 3529 END; : 
; 1817 3530 F 
; 1818 3531 ++ : 
3: 1819 $238 ' No ‘match’ was found - return the standard failure status. 3 
: 1820 $23 2 !e- 3 
3; 1821 534 2 RETURN(FALSE); 3 
: 1822 3535 1 END; : 
O1FC 00000 VAL_TO_SAT: 3 
-WORD Save R2,R3,R4,R5,R6,R7,R8 : 3259 | : 
58 000000006 EF 9€ 00002 MOVAB PATSGET_NXT_SAT, R8 ; ; 
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FCC4 ~=6CF «O9E 00009 MOVAB GBL_VAL_TO_SAT, R7 : 
HH 000000006 EF 9€ 0000 MOVAB PATSGL RST-BEGN, R6 : 
3 p4 0001 CLRL BEST SAT : 3320 
E D4 0001 CLRL BESS : 3325 
$8 01 FB 0019 CALLS #1, PATSGET_NXT_SAT : 
04 AC 00 0001C MOVL VALUE, R 3 3345 
01 DD 00020 1$: PUSHL 3 3333 
68 gi FB 000 é CALLS #1, PATSGET_NXT_SAT : 
0 dS 000 TSTL NEXT_SAT : 
4E 13 00027 BEQL 4 : 
54 50 b0 0029 MOVL NEXT_SAT, CURRENT_SAT : 3342 
2g 64 3¢ 0002C MOVZWL MEM RRENT. SAT) CURRENT _NT 3 3343 
5 02 A& D1 0002F CMPL  2(CURRENT_SATS, ; 3345, 
o¢ if 0033 BNEQ 2$ : 
53 05 00035 TSTL BEST_SAT 3 3352) 
39 13 00037 BEQL 5$ : 
55 02 A3 D1 00039 CMPL 2(BEST_SAT), R5 : 3366. 
28 13 0003p BEQL 4$ : 
1 11 0003F BRB 5$ : 3372) 
34 1A 00041 28: BGTRU 6$ : 3396. 
06 AS DS 00043 TSTL 6(CURRENT_SAT) 7 3413) 
16 13 00046 BEQL 3$ : 
55 06 A& D1 00048 CMPL 6(CURRENT_SAT), R5 : 3420. 
D2 1F 0004C BLSSU_1$ : 
53 54 DO 0004E MOVL CURRENT_SAT, BEST : 3430) 
51 52 66 C1 00051 ADDL3 pATsol. RST_BEGN, TORRENT LNT, R1 3: 3436) 
B8 sBF 02 Ail 91 00055 CMPB 2(R1), #183 3 
C4 13 O005A BEQL 1$ 3 
19 11 0005C¢ BRB 6 > 3445 
53 D5 OO005E 3$: TSTL BEST_SAT : 3461 
10 13 00060 BEQL 5$ : 
06 A3 D5 00062 TSTL 6(BEST_SAT) : 3465 | 
0B 13 00065 BEQL 5$ : 
51 52 66 C1 00067 4$: ADDL3 PAT $6L_ RST_BEGN, CURRENT_NT, R1 : 3472) 
B8 aBF 02 Al 91 00068 CMPB 2(R1), #183 : 
AE 13 00070 BEQL 1$ : 
53 54 p0 00072 5$: MOVL CURRENT_SAT, BEST_SAT > 3474) 
AJ 11 00075 BRB 1$ ; 3333) 
53 D5 00077 68: TSTL BEST_SAT : 3484. 
0A 12 00079 BNEQ 7$ ; 
55 DD 00078 PUSHL R5 > 3489 | 
67 01 FB 0007D CALLS #1, GBL_VAL_TO_SAT : 
53 50 D0 00080 MOVL RO. BEST_SAT : 
e6 11 90083 BRB 9$ ; 
02 A3 5 D1 00085 7$: CMPL R5, 2(BEST_SAT) > 3495. 
26 13 00089 BEQL 9$ : 
50 63 3C 0008B MOVZ2WL (BEST_SAT), BEST_NT > 3504. 
06 A’ D5 OOOBE TSTL  6(BEST_SATS : 3505 | 
OA 13 00091 BEQL 8$ ; 
50 66 CO 00093 ADDL2 PATS$GL_RST_BEGN, RO : 3506. 
B8 soaBF 02 Ad 91 00096 CMPB 2(RO), #183 : 
14 12 00098 BNEQ 9$ : 
55 DD 0009D 8$ PUSHL R5 : 3508 
67 01 FB 0009F CALLS #1, GBL_VAL_TO_SAT : 
54 50 0 000A2 MOVL RO, CURRENT-SAT ; 
0A 13 OO0AS BEQL 9$ : 
02 = A3 02 A& D1 000A7 CMPL 2(CURRENT_SAT), 2(BEST_SAT) > 3513 
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192 bytes, Routine Base: 
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ROUTINE LOOKUP_LVT( VALUE, NT_PTR_ADDR ) = 

144 

! Functional Description: 


ow 
o- 
oO 


ws 


Search the Literal value table (LVT) for a match 
to the given value. 


Formal Parameters: 


VALUE “The key we use in the Lookup. 

NT_PTR_ADDR “A pointer to where we should copy back 
the NT_POINTER to the record we find 
to correspond to the value. The 
contents of this location are not eoenere 
if no such correspondence is discovered. 


! Warning: 


' 

' 

i 

' 

i 

i 

i 

' 

i 

i 

i 

! 

i 

' 

: 

‘ We return an NT pointer via NT_PTR_ADDR. 

: As long as this returned value is NOT a longword, 
: due to BLISS's inability to use the REF NT_RECORD 
: ONLY as an NT pointer, (i.e. BLISS assumes that 
: REFs are longwords), a caller of this routine should 
: initialize the NT_PTR to 0 before expecting this 
; routine to pass back the value. This routine 
; can not pass back a longword because we won't know that 
; the address we were passed is not a real NT_P 
field - ie, the 2-bytes that it should be... 
Implicit Inputs: 
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The way we define a ‘match’ in the LVT which is 

simply that the given value must be exactly the 

same as the corresponding one from the LVT. The 
first one found is always the one passed back. 


Implicit Outputs: 


The RESULT peranster via NT_PTR_ADDR. 
(see above. 
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' Routine Value: 


TRUE, if a match is found, 
FALSE, otherwise. 


Side Effects: 
The LVT is searched. 


BEGIN 


MAP 
NT_PTR_ADDR : REF RST_POINTER; 
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LOCAL 


! we apply the proper structure. 
le 

Set up to begin the sequential pass of the LVT. 

PATSGET_NXT_LVT( SL_ACCE_INIT ); 


'e4 

! Linearly search the LVT ——s for an exact match. LVT access type is _RECS 
: because we want to quit when the access-mapping routine recognizes tha 

! even though there may be more potential records in the LVT, there are no more 
' ones currently in use. 


WHILE ((LVT_PTR = PATSGET_NXT_LVT( SL_ACCE_RECS )) NEQ 0) 
BEGIN 
IF (.LVT_PTRCLVT_VALUE] EQL .VALUE) 
THEN 
= 
; This is the only place we can find a match and return an OK status. 


NT_PTR_ADDRCO] = .LVT_PTRELVT_NT_PTRI; 
3h eat ate 


'+4 
Loop back and try again with the next LVT record. 


END; 


e+ 
If we fall out of the above loop, no match can be found. 


RETURN(FALSE); 
ND; 
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0004 00000 LOOKUP_LVT: 
- WORD 


Save R2 
52 00000000G EF 9E 00002 MOVAB PATSGET_NXT_LVT, R2 
7E 04 00009 CLRL - 
62 01 FB 0000B CALLS #1, PATSGET_NXT_LVT 
01 DD OOOOE 18: PUSHL 
62 01 F 9019 CALLS #1, PATSGET_NXT_LVT 
0 D5 0001 TSTL vf_PTR 
OF 1 0015 BEQL 
04 Ac 02 AQ D1 0001 CMPL (LVT_PTR), VALUE 
F is 001C BNEQ 
08 BC 60 8B O01 MOVW  § (LVT_PTR), @NT_PTR_ADDR 
0 01 DO 0002 MOVL #1, RO 
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LVT_PTR : REF LVT_RECORD; ! When we look at each record of the LVT_VEC 
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GLOBAL ROUTINE PATSSYMBOL_VALU( NT_PTR, VALUE_PTR ) = 


'+4 


! Functional Description: 


ee 


“Look up the value associated with a given 


NT recor 


“Note that we refer to ‘value’ associated with a symbol 


but real 
manipula 


NT_PTR 
VALUE_PTR 


t 


Formal Parameters: 
-a pointer to the NT_RECORD that corresponds 


Ly mean ‘address’, since that is as far as RST 
on handles symbol-value correlation. 


to the symbol we want the value of. 
“where we are to copy the value back to. 


Implicit Inputs: 


“We can call PATSDST_VALUE with a DST_REC 
(in BLD's ADD_NT we call it with a DST_R 


-The value bound to a symbol can be passed 


back in 
-NT recor 
1) one 

w 


f 


a longword 


D 


- ee 
ECRD pointer). 


ds marked NT_IS_GLOBAL may be 1 of 2 types: 

which was first a normal NT record but | 

hich was later marked NT_IS_GLOBAL. In this case 
there IS scope info, and we pick up the value 


rom the DST 


2) a fake NT record which was created from a GST 
record. In this case the ‘value’ 
in the NT_DST_PTR field of the NT record. 


r 


None. 


Routine Value: 


Implicit Outputs: 


field is stored 


TRUE, if the symbol is found successfully and 


FALSE or 


Side Effects: 


The value 


NT_PTR 
VACUE_PTR 


’ the returned value is the address bound to the symbol, 
3, if the symbol is found successfully and the value returned is the 


address of an array descriptor for the symbol, 


2, otherwise. 


gets passed back. 


: REF NT_RECORD 
: REF VECTORC, LONG); 


2 
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! If this NT record corresponds only to a GLOBAL symbol, there is no associated 


689 
1979 3650 : DST record. In this case we use the DST pointer space from the NT record 
1390 24 to contain the value associated with the global symbol. 
1356 $98 IF (.NT_PTRENT_IS_GLOBAL] AND .NT_PTRENT_UP_SCOPE] EQL 0) 
198 694 THEN 
1984 695 BEGIN 
1985 696 VALUE_PTRCOJ = .NT_PTRONT_GBL_VALUE); 
1986 697 
1987 3698 RETURN( TRUE); 
1988 699 2 END; 
1989 700 
1990 701 '++ 
1333 HA § We localize all DST understanding to yet another routine. 
1993 3704 2 RETURN( PATSDST_VALUE( .NT_PTRENT_DST_PTR], .VALUE_PTR)); 
1994 3705 1 END; 
0 00000 -ENTRY PATSSYMBOL_VALU, Save nothing : 3632) 
50 04 AC 00000000G EF C1 00002 ADDL3 PAT$GL_RST_BEGN, NT_PTR, RO ; 3693 
OE AO €9 00008 BLBC 3(RO), 1$ : 
08 AO B85 OO00F TSTW 3 
0 2 00012 BNEQ 1$ : 
08 0 00014 MOVL 4(RO), @VALUE_PTR : 3696. 
0 00019 MOoVL «= #1, - RO : 3698 
4 0001C RET : | 
08 AC DD 0001D 1$: PUSHL VALUE_PTR : 3704. 
04 Ad 00020 PUSHL ( : 
00000000V_ EF 02 FB 00023 CALLS #2, PATSDST_VALUE : 
0002A RET : 3705) 


; Routine Size: 43 bytes, Routine Base: _PATSCODE + 0559 
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Sf 


DST record. 

“Note that we refer to ‘value’ associated with a symbol 

but really mean ‘address’, since that is as far as RST 
manipulation handles symbol-value correlation. 
Normally this ‘address’ is the virtual address which is 
bound to the symbol. If the symbol is associated with 
a descriptor, neuen it is the address of the descriptor 
which is returned for this symbol. 

Formal Parameters: 


DST_REC_ID -a pointer to the DST RECORD that corresponds 
to the symbol we want the value of. 

“this may also be the DBGINT-defined DST record ID 
which it assigns to each DST record it processes. 
seeet see implicit inputs below. 

VALUE_PTR “where we are to copy the value back to. 
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Implicit Inputs: 


The concept of a DST_REC_ID vs a DST_RECRD pointer 

is morose oy eee routine. i.e. we don't consider 

these two t } ~ to be different even though everything 
else in PATCH does not preclude this. he : 

DST interface routine is changed so that these two things. 
are no a ow the same, we must change calls to this routine 
to be consistent. So far this routine is called 

by PATSSYMBOL_VALU and ADD_NT only. 


-The value bound to a symbol can be passed 
back in a longword. 


Implicit Outputs: 
None. 
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Routine Value: 


ooooo 
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TRUE, if the symbol is found successfully and the value returned is the 
address bound to the symbol : 

3, if the symbol is found successfully and the value returned is the 
address of an array descriptor for the symbol, 

FALSE or 2, otherwise. 


Side Effects: 
The value gets returned. 


RERRRRREK 


The DST is ‘read’ in such a way as to ensure that 
if any PATS$GET_NXT_DST sequence is in progress it 
is 


Bo a Be Be Be Be Be Oe Oe Oe Oe Be SHS e Be Oe Be Oe Be Oe Oe OF Oe Oe Oe Be Oe Os Be Oe OH Oe OH Os Oe Oe Oe Oe Oe OH SESE Os Oe Oe Os Oe Oe Oe OH Se OH Se SE Sees ee < 
WAWAIAIAIAI ANNA AAAI AWA ANNA NAA NANI NINN OAAN AANA AN NNINWAIANAANNNANNIIWG 
SS NSS NSS SSNS NNN SSS SN NSS 
MO ODNOA UNE WIN 2 0 OONOAUE WIN OS OONAUE WN $ O ODNAUE WIN SO OE NOUS WN OOWDNO 
mee a me me ee a ae a od od od dd dd dD 


ee ee ee ee ee ee ee ee ee ee ee ee eee ee 


RPNININININININININININVVARN 


PDA QEMANMAGAMN ITT 


ooo 
Ww 


' Functional Description: 

: Look up the value associated with a given 

disturbed by this call. 
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v04-000 aaa 1 93:93:08 DISKSVMSMASTER:CPATCH, SRCIPATRST.B32:1> a? 
; 2053 763 1 !-- 
; 2054 764 1 
; 2055 765 BEGIN 
; 2056 766 
; 2057 767 MAP 
; 2058 768 VALUE_PTR : REF VECTORC,LONG); 
; 2059 769 
; 2060 770 LOCAL 
; 2061 771 STATUS, ' RETURNED STATUS CODE 
; soek re MAPPED_ADR : REF BLOCKC(,BYTE], ! Mapped descriptor address 
; 206 377 ISE_ADR, ' Image Section Address 
; S068 ae, VALOE ! Used to accumulate the symbol's value. 
> 2065 775 ACCESS, i The access field from the DST record. 
; 2066 776 DST_RECRD : REF DST_RECORD; 
3; 2067 777 
; 2068 778 144 
; 2069 3779 ! Fetch the indicated DST record. 
; 2070 3780 leo 
; 2071 3781 STATUS = TRUE; ' ASSUME EVERYTHING WORKS 
; 2072 HAL: IF ((DST_RECRD = PATSGET_DST_REC( .DST_REC_ID )) EQL 0) 
; 2073 3783 2 THEN 
: 2074 3784 § le4 
; 2075 3785 ! The supposed record does not exist. An error message should already 
: 2076 3786 2 ' have been produced. 
: 2077 3787 2 l—= 
; 2078 3788 2 RETURN(FALSE); 
; 2079 3789 2 
; 2080 3790 2 !++ 
3 soRe 44 2 How we pick up the value depends on what class of DST record this is. 
; 2083 3795 ‘ IF (.DST_RECRDCDSTR_TYPE] EQL DSC$K_DTYPE_Z) 
: 2084 3794 ¢ THEN 
; 2085 3795 BEGIN 
; 2086 3796 3 lee 
; 2087 3797 3 ' BLISS Type Zero records have a format which is different from 
; 2088 3798 3 ' standard DST records. 
; 2089 3799 3 !== 
3; 2C¥0 3800 3 BIND 
; 2091 3801 3 BLZ_RECRD = DST_RECRD : REF BLZ_RECORD; 
3: 2092 $508 3 
: 2093 3803 3 '++ 
; 2094 3804 ! We can't make any sense out of these records (yet) unless 
: 2095 805 ! 1) no optional type into was given 
3; 2096 806 : (i.e. we only get the standara 3 bytes) 
3; 2097 807 ! ¢} the structure attribute is 0 
; 2098 3808 : ) the sub-type is within the range we currently support. 
; s+ 4 3 (i.e. only FORMALS and SYMBOLs are OK) 
: 2101 Hae : ! We have already implicitly checked the first two of these because we 
: $108 aig 3 ' wouldn't have entered the symbol into the NT had this check 
: 2103 381 ' not succeeded. 
: 2104 814 !en 
3; 2105 815 
3: 2106 318 '+¢ : 
: 44 sii Pick up the value of this symbol. 
: $100 3819 STATUS = STD_SYM_EVAL(VALUE, .BLZ_RECROCBLZ_ACCESSJ, .BLZ2_RECROCBLZ_VALUE)); 
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'4e4 
End of special handling for type ZERO variables. 


END 
'e¢ 
Class 1 is the so-called SRM ‘standard’ types. 


IF (DST_RECRDCDSTR_TYPE3 LEQ DST_TYP_HIGHEST) 
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ELSE 


Www 
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BEGIN 

Hag et Pe CRBED STR ACCES. TIPE EQL ACCS_DESCRIPTOR) 
BEGIN 
'e4¢ 


i Ignore Syneaees Ly ec eter array descriptors. This 
! means that only the so-called ‘'PC'’ relative ones are 


supported. 
if (.DST_RECRDEDSTR_ACCES_BASD] NEQ 2) OR 
(:DSTZRECRDCDSTR-ACCES-BREG) NEQ 15) 


RETURN(FALSE); 


' 
! The descriptor is in the DST record itself. 
: The notion of PC is as though the "DST" PC 
! were just used to ‘pick up’ the _VALUE field, 
! which g'ves how far from there to displace 
! to find the actual array descriptor. 

: For the routine PAT$SYM_TO_VAL, the status | 
! code returned must indicate that this value is 
! an array descriptor address. 


VALUE = -DST_RECRDCOSTR_ VALUE); 
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VALUE = .VALOE + DST_RECRDCDSTR_VALUE] + XUPVAL; 
STATUS = 3; 
END 
ELSE = 
i For standard types, we simply apply the correspondin 
6 ! standard algorithn. The various TYPEs will be used . 
6 ! mainly to sort out what we do with the value 
6 ! after the algorithm tells us how to get it, but 
e2 ' this is handled outside of this routine. 
4 - STATUS = STD_SYM_EVAL(VALUE, .DST_RECRDCDSTR_ACCESS], .DST_RECRDCDSTR_VALUE)); 
69 ELSE 
70 BEGIN 
71 'e¢ 
' Class 2 is ‘the rest’. We expect them to be from the standard 
; a? DSTR_TYPEs class. 
; 1H CASE. -DST_RECRDCOSTR_ TYPE] FROM DST_DST_LOWEST TO DST_DST_HIGHEST OF 
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877 
B78 ; COSCSK_DTYPE_FLDJ: ! Bliss fields. 
880 4 BEGIN 
881 4 SFAO_TT OUT('!/FLD not supported"); 
+0 4 RETURN(FALSE); 
88 ND; 
884 
885 CDSC$K_DTYPE_PCT, 
886 DSCS$K-DTYPE-LBL, 
887 decok.dtyee_stb 
rtd ; DSCSK_DT E-RTNI: ! These ones have values. 
44 VALUE = .DST_RECRDCDSTR_VALUEJ; 
£36 CINRANGE ,OUTRANGE]: ! Probably an error. 
3894 RETURN(FALSE); 
3895 3 
3896 3 TES; 
3897 3 
3898 2 END; 
3899 2 
3900 2 !++ 
3901 2 ! At this point, the value has been obtained or a RETURN has been done. 
$00 § ! We simply pass back this value and return a good status code. 
3904 2 VALUE_PTR(O) = .VALUE; 
3905 2 RETURN(.STATUS); 
3906 1 END; 
12 L1:3881 


xpression appears in value-required context 


~PSECT _PATSPLIT,NOWRT,NOEXE,0 


13 00000 P.AAA: .BYTE 19 : 
6F 70 70 75 73 20 74 6F 6E€ 20 44 4C 46 2F 21 00001 ASCII \!/FLD not supported\ : 
64 65 74 72 00010 3 


.PSECT _PATSCODE,NOWRT,2 


000C 00000 ENTRY PATSDST_VALUE, Save R2,R3 : 3706 | 
4 04 Cé 80 08e SUBL2 — 3 
5 01 DO 0000 MOVL #1, STATUS : 3781) 
04 AC DD 00008 PUSHL DST_REC_ID ; 3782. 
00000000G EF 01 FB 000 CALLS #1,” PATSGET_DST_REC 3 
52 50 bdO 0001 MOVL RO, DST_RECRD : 
7E 13 Bao} EQL 7$ ; 
50 01 A2 9A 00017 MOVZBL 1(DST_RECRD), RO ; 3793 
09 12 00018 NEQ 1$ ; 
06 A2 OD ht) PUSHL 6(DST_RECRD) ; 3819 
7E 04 A2 9A 00020 MOVZBL 4(DST-RECRD), -(SP) : 
38 11 00024 RB 3$ ; 
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166 bytes, Routine Base: 


Routine Size: 


Baie Se rel WER CONT, “ncaa ean, tes), 1 ‘ oe. ees, 
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PATRST 16-Sep-1984 01:09:0 VAX=-11 Bliss-32 V4.0-742 Page 59 
| ¥04-000 12-Sep-19 4 93:95:88 DISKSVMSMASTER: CPATCH, SRCJPATRST.B32: 1° (18) 
; 138 307 ! ROUTINE STD_SYM_EVAL( PASS_BACK_ADDR, ACCESS, IN_VALUE ) = 

; 2200 909 1 !44 

3 4 4h : } Functional Description: 

; $8 aig gf Implement the algorithm which comes up with 

; 2204 915 1! a symbol's value | a ge the so-called ACCESS 

3 $02 914 1! and IN_VALUE fields taken from (various places within) 

: 2206 915 1! the DST record for a symbol which uses 

; 4 aig : "standard encoding’. 

3 % Ht : See CP0021.MEM, pgs 9-10 for this algorithm. 

3; 2211 920 1 ! Formal Parameters: | 
; si¢ 3921 1! 
3 221 39 ¢ 1! PASS_BACK_ADDR <The address of where we stuff back the value -LT 

; 2214 39 1} the algorithm determines. 
5 $512 335¢ 1! ACCESS “The i-byte field which encodes the 
; § 16 3925 1! 3-element fields described in CP0021.MEM 

; 2217 3926 1! for so-called ‘standard encoding’. 
: 2218 3927 1! IN_ VALUE “The value field which may be used in 
3; 2219 3928 1! conjunction with ACCESS. 
3; 2220 494 1! 
3; 2221 3930 1 ! Implicit Inputs: 

3 2222 3931 1! 

3 2223 $038 1! That the value bound to a symbol can be passed 
; 2224 3935 1! back in a longword. 

: 2225 3934 1! 

3; 2226 3935 1°! Implicit Outputs: 

3; 2227 3936 1: : ; ; ’ 

: 2228 3937 1! The value which is currently associated with the symbol which 
3; 2229 3938 1! presumably corresponds to the ACCESS and IN_VALUE fields given, 
3; 2230 3939 1! is passed back. 

3; 2231 3940 1! 
; $$e6 3941 1 ! Routine Value: 

3; 223 3942 1! ‘ 

3 2234 3945 1! TRUE, if all goes OK and the value gets passed back. bier 

3; 2235 3944 1! NOT TRUE, otherwise. In this case we distinguish two possibilities: 
; $539 3945 1! Q => a real error - the symbol could not be evaluated. 

; 2237 3946 1! and 2 => a soft error - the evaluation failed because of an 

3; 2238 3947 1! inappropriate context. 

3; 2239 Se Tf 

3; 2240 3949 1! Side Effects: 

3 $503 3950 1! : : ; ; 

3: 2242 3951 1! The value which is currently associated with 

3; 2243 $oe6 1! the syepel which presumably corresponds to 

3 2244 3953 1! the ACCESS and IN_VALUE fields given. 

3 $$ce 3954 1 !-- 

3; 2246 3955 1 

3 2247 3956 BEGIN 

3 $$e6 $025 

3 2249 958 MAP 

3 $520 $020 PASS_BACK_ADDR : REF VECTOR; ' THE VALUE WE PASS BACK IS A LONGWORD 

HY $52) 3903 $ LOCAL 

3 2253 soc8 2 RET_VALUE; ! We accumulate the value we return. 

3 2254 39635 2 
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964 '++ 
202 * eeeeeee THIS ROUTINE MUST BE WRITTEN WHEN BLISS VARIABLES ARE ADDED. e200 
96 RET VALUE = =fALue: 
968 I t ACLESS<UT ! If “indirect” set 
35 H gee WARNING: oi t know if going indirect is to a mapped or 
971 i on vacbes? address. Therfore return error for now. 
4a : RET ON RNC) i = RET VAL 
974 9 PASS BACK ADDRLOJ’= .RET_VALUE; | 
975 RETURN(TROE); J 
976 1 END; 
| 
0000 00000 STD_SYM_EVAL: 
-WORD Save nothin 3 3907 | 
50 OC AC DO 00002 MOVL | IN_VALUE, RET_VALUE : 3967. 
04 08 Ac 02 €1 00006 BBC #2, ACCESS, 1$ ; 3968 
50 02 DO 00008 MOVL #2, RO 3; 3973 
04 OQO00E RET 3 
04 BC 50 00 OOO0F 1$: MOVL § RET_VALUE, @PASS_BACK_ADDR : 3974 
50 01 DO 00013 MOVL #1, RO : 3975. 
04 00016 : 3976 


23 bytes, Routine Base: _PATSCODE + 062A 
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B 12 
vou=600 10-86 
: $599 356} Exuvom 
; PSECT SUMMARY 
; Name Bytes Attributes 
5 -PATSCODE 1601 NOVEC,NOWRT, RD , EXE,NOSHR, 


ATSOWN 8 NOVEC, WRT, 


~PATSPLIT 20 NOVEC,NOWRT, 


Library Statistics 


RD ;NOEXE.NOSHR, 
RD {NOEXE.NOSHR, 


SPS yas NR 7 Sil MR ot ORs 8, a SYRGOL§ ooeoceee 
Fie Total Loaded Percent 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 14 0 


Information: 2 
Warnings: 
Errors: 


COMMAND QUALIFIERS 


Pages 
Mapped 
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! End of module 


61 
* (19) 


Processing 
Time 


00:01.8 


BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /VARIANT:1/LIS=LIS$:PATRST/OBJ=OBJ$:PATRST MSRC$:PATRST/UPDATE=(ENH$:PATRST) 


Size: 1601 code + 28 data bytes 
Run Time: 00:49.0 

Elapsed Time: Oe 30. 

Lines/CPU Min: 4874 

Lexemes/CPU-Min: 26019 

penery Y Used: 207 pages 

Compilation Complete 
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